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Nomenclature 


2 

p - pressure,  N/m 

3 

p - density,  kg/m 

V - velocity  vector,  m/sec 

-*  radial  velocity  component,  m/sec 

u - axial  velocity  component,  m/sec 
z 

E - Internal  energy,  joules/kg 
a - sound  speed,  m/sec 

6 - blcharacterlstlc  angular  coordinate,  degrees 
4)  - blcharacterlstlc  angle  at  the  mach  cone  apex,  degrees 
9 - blcharacterlstlc  angle  at  the  mach  cone  base,  degrees 
r - radial  coordinate,  m 
z - axial  coordinate,  m 
t - time  coordinate,  seconds 
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I.  Introduction 


This  report  presents  s numerical  solution  to  the  problem  of 
two-dimensional,  unsteady,  compressible  flow  of  an  Invlscid,  non- 
conducting fluid  by  the  method  of  characteristics. 

The  numerical  method  developed  hbre  can  be  applied  to  many 
unsteady  fluid  mechanics  problems,  such  as  the  Interaction  of  a 
blast  wave  with  solid  surfaces,  one-phase  gas  flow  In  Interior  bal- 
listics, and  flow  around  turbine  blades.  It  may  aiso  be  used  to 
obtain  solutions  of  two-dimensional  steady  flow  problems  by  running 
the  unsteady  problem  to  an  asymptotic  time  limit. 

An  alternate  numerical  solution  is  the  finite-difference 
method,  in  which  the  differential  equations  are  written  directly  In 
difference  form  and  Integrated  In  a step-by-step  manner.  This  tech- 
nique Is  comparatively  simple  and  well  suited  to  the  digital  computer. 
The  major  disadvantage  of  the  finite-difference  method  Is  Its  lack  of 
accuracy  In  regions  where  shock  waves  or  large  property  gradients  exist. 
It  also  encounters  accuracy  problems  near  flow  boundaries,  where  loss 
of  accuracy  results  from  extrapolation  and  one-sided  difference 
equations  [1]*. 

The  approach  presented  here  is  based  on  the  method  of 
characteristics.  In  which  linear  combinations  of  the  equations  are 
formed  In  such  a way  that,  at  each  point  In  the  space  of  the  three 
Independent  variables,  differentiation  occurs  parallel  to  certain 
planes,  called  characteristic  planes.  Thus,  the  combined  equations, 
known  as  compatibility  equations,  become  partial  differential 
equations,  and  a relatively  complex  numerical  scheme  Is  required 
for  their  Integration. 

Several  techniques  of  solution  have  been  advanced  using  the 
method  of  characteristics.  Thornhill  [2]  proposed  a finite-difference 
scheme  applied  along  three  blcharacterlstics  (lines  of  intersection 
between  characteristic  surfaces  and  the  Mach  cone,  the  envelope  of 
characteristic  surfaces).  A mesh  Is  constructed  of  points  which  are 
the  Intersections  of  three  families  of  characteristic  surfaces.  Each 
new  point  (P^  In  Fig.  1)  Is  found  by  Integrating  the  compatibility 

equations  along  the  three  blcharacterlstics  originating  at  the  known 
base  points  (F^^,  ?2,  and  F^).  The  major  advantage  of  this  method  Is 

that  no  Interpolation  Is  required  to  determine  the  properties  at  the 
base  points;  however,  since  the  domain  of  dependence  (the  Mach  cone) 

Is  larger  than  the  domain  of  the  finite-difference  scheme,  the 
calculations  become  unstable  after  a short  time.** 


*Numbers  In  brackets  designate  references  at  end  of  report. 

**Accordlng  to  the  Courant-Frledrlchs-Lewy  stability  criterion  [3], 
a necessary  condition  for  the  numerical  stability  of  the  solution  Is 
that  the  domain  of  dependence  of  the  differential  equations  fall  within 
the  domain  of  dependence  of  the  difference  equations.  See  also  [A]. 
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Sauerweln  [4]  has  proposed  a version  of  Thornhill's  scheme 
called  the  modified  tetrahedral  network,  shovm  in  Fig.  2.  To 
ensure  numerical  stability,  the  base  of  the  Mach  cone  is  inscribed 
in  the  triangle  forming  the  domain  of  the  difference  scheme;  a 
single  interpolation  is  then  required  for  the  variables  at  each  of 
the  base  points  **23*  ^31*  **°''*''**'»  formulating  his  finite- 

difference  equations,  Sauerweln  makes  the  assumption  that  the  partial 
derivatives  of  the  dependent  variables  remain  constant  on  the 
characteristic  surfaces,  thus  abandoning  second-order  accuracy.  The 
method  is  discussed  in  greater  detail  in  Appendix  A. 

In  another  technique  proposed  by  Coburn  and  Dolph  [5]  and 
later  refined  by  Holt  [6],  the  bicharacterlstlc  lines  are  arranged 
in  what  has  been  called  the  prismatic  network,  shown  in  Fig.  3.  The 
new  point  P,  is  found  by  writing  finite-difference  relations  along 
the  two  blcnaracteristics  **2~**g  ^3~^6  introducing  a third 

relation  along  the  space  curve”Pj-P,.  The  introduction  of  this  ordin- 
ary curve  implies  that  the  flow  must  be  known  on  some  surface  other 
than  the  initial  surface,  such  as  a plane  of  symmetry.  In  addition, 
the  ordinary  curve  Introduces  a disturbance  to  P,  from  outside 
Its  domain  of  dependence.  Because  of  this,  difficulties  are  encount- 
ered in  the  handling  of  boundary  conditions  at  shock  waves  and  con- 
tact discontinuities. 

Finally,  the  technique  proposed  by  Butler  [7],  which  is  used 
in  this  report,  is  a combination  of  the  standard  finite-difference 
approach  and  the  method  of  characteristics  scheme  originally  con- 
ceived by  Hartree  [8],  As  shown  in  Fig,  4,  the  new  point  P^  is 

chosen  and  the  Mach  cone  projected  down  to  the  initial  surface. 

Four  blcharacterlstics  are  used  in  determining  the  flow  properties 
at  the  new  point,  one  more  than  necessary.  The  addition  of  this 
fourth  equation  and  the  proper  orientation  of  the  blcharacterlstics 
permit  the  elimination  of  the  partial  derivatives  at  the  new  point, 
which  In  other  schemes  are  flnite-dlfferenced.  The  flow  properties 
at  the  base  points  Pj^,  P2,  P^i  and  P^  must  be  obtained  by  two- 

dimensional  interpolation.  To  complete  the  solution,  an  additional 
equation  is  Introduced  along  a curve  other  than  a bicharacterlstlc. 
This  curve  must  lie  inside  the  envelope  of  the  characteristic 
surfaces  through  the  point  under  consideration.  The  solution  at 
each  new  point  can  thus  be  computed  without  using  conditions 
outside  its  domain  of  dependence,  while  at  the  same  time  maintaining 
second-order  accuracy  in  the  solution. 

In  solving  for  points  along  a flow  boundary,  those  equations 
written  along  curves  falling  outside  the  flow  are  replaced  by  the 
boundary  conditions,  the  required  number  of  which  will  be  determined 
by  the  number  of  lost  equations. 
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Although  Butler's  technique  Involves  considerably  more 
Interpolation,  and  hence  complexity  In  the  computer  coding,  the 
straight-forward  logic  of  the  scheme,  the  facility  In  the  applica- 
tion of  the  boundary  conditions,  and  the  ability  to  maintain  second- 
order  accuracy  appear  to  outweigh  the  disadvantage. 

It  has  come  to  our  attention  during  the  preparation  of  the 
manuscript  of  this  report  that  Delaney  and  Kavanagh  [9]  have  applied 
the  method  of  characteristics  to  transonic  flow  In  turbomachinery 
cascades.  They  used  essentially  the  same  approach  as  ours,  but 
with  least-squares  Interpolation  Instead  of  the  second-degree  poly- 
nomial method.  They  did  not  show  detailed  error  analysis,  and  a 
direct  comparison  of  their  results  with  ours  can  not  be  made  readily. 
But,  In  general,  as  shown  In  Appendix  F of  this  report,  the  least- 
squares  Interpolation  Is  not  as  accurate  as  the  second-degree  poly- 
nomial method  used  in  this  report. 

In  this  report,  the  characteristic  cones,  blcharacterlstlc 
equations,  and  compatibility  equations  are  first  derived.  The  num- 
erical scheme  adopted  Is  then  explained  In  detail.  An  example 
problem,  the  blast  wave  problem,  which  has  a known  exact  solution. 

Is  solved  by  the  present  method  and  the  error  analyzed.  It  Is 
shown  that  after  calculation  of  50  times  planes,  the.  maximum  error 
In  all  properties  at  any  point  Is  less  then  0.05%.  The  accuracy  of 
the  method  seems  satisfactory. 
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II.  Analysis  by  Method  of  Characteristics 
Governing  Equations 

The  governing  equations  for  unsteady  flow  in  an  Invlscld, 
compressible,  non-conducting  fluid  are  the  continuity,  momentum,  and 
energy  equations,  from  which  the  following  equations  can  be  derived: 


^ + TV-ir  »o 


ot 


* o 


QS.  ^ A ^ 
ot  ot 


« o 


where  the  total 
equation  of  state 


derivative  v 

be 


Let  the 


E - E(p,p) 


(1) 


(2) 


(3) 


(4) 


For  the  two-dimensional  case.  In  cylindrical  coordinates, 
eqs.  (1)  through  (4)  represent  five  equations  in  five  unknowns: 
p,  pressure;  p,  density;  u and  u , the  particle  velocities  in  the 

IT  2 

radial  and  axial  directions,  respectively;  and  E(p,p),  the  specific 
Internal  energy.  Before  proceeding  further,  the  Internal  energy  E 
will  be  eliminated  from  the  energy  equation  by  means  of  the  equation 
of  state.  Substitution  of  Eq.  (4)  into  Eq.  (3)  yields 


or  - ± 

ot  oi 


(5) 


where  the  sound  speed  a Is  defined  as 


Equations  (1),  (2),  (5),  and  (6)  now  represent  five 
equations  In  the  unknowns  p,  p,  u , u , and  a.  This  set  of 

IT  2 


(6) 


equations  comprises  a system  of  four  first-order,  quasl-llnear, 
hyperbolic  partial  differential  equations  In  the  three  indepen- 
dent variables  r,  z,  and  t,  and  an  equation  of  state. 
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Mechod  of  Characteristics 


The  application  of  the  method  of  characteristics  to  this 
system  follows  essentially  the  procedure  given  In  Refs.  [7]  & [9]. 

It  Involves  forming  a linear  combination  of  the  governing  equations 
In  such  a way  that  It  results  In  a system  of  equations  where  the 
partial  derivatives  occur  In  two  new  coordinates  only  (that  Is, 
within  the  characteristic  plane  of  the  system),  rather  than  In  the 
three  physical  coordinates  r,  z,  and  t. 

To  find  the  proper  combination,  the  governing  Eqs.  (1), 

(2)  , and  (5)  are  transformed  Into  a new  orthogonal  coordinate 
system  5 each  Is  multiplied  by  an  arbitrary  factor, 

then  all  are  added  together.  By  requiring  that  those  terms  Involv- 
ing derivatives  along  one  coordinate  (say  vanish,  the  appropriate 
values  of  the  multiplying  factors  can  be  found,  and  the  form  of  the 
transformation  obtained.  The  resulting  equation  will  then  contain 
only  derivatives  In  B~  and  B-,  which  will  describe  the  characteris- 
tic planes.  The  mathematical  details  of  this  procedure  are  given 
below, 

Transforming  Eqs,  (1),  (2),  and  (5)  Into  a coordinate  system 
( Bj^,  obtain  the  following  four  (scalar)  equations; 
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5. 


(7) 
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1 

? fit  - - 


(8) 
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(9) 


•4“ 

- O 


If  we  multiply  Eq.  (7)  by  Eq.  (8)  by  X2,  Eq.  (9)  by 
and  Eq.  (10)  by  X^,  then  add  all  these  equations  together  and 
finally  group  the  dependent  variables  In  terms  of  6^^,  82* 

Bj,  we  obtain 

+ Iy  ^’]  + 

^ [ C A,-  ♦ u,  + Uj  ^ ^ + 

^ lx,  + X3U,  \ f A.  -V  A,  j } ^‘  ] + 
^IX*  f^{^i  ^X*u.> ^X*ujf  ^ ^ 
^ L(X.-a^A*n^^  4U^  + 


fc::qi^eWl*^4i£  • " ’**•■ 
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(11) 


4 lAxU.  * fA.^  ]-t- 

%\  ^ + \ ¥>  ] + 

- K.A.?  ^ 


where  a parameter  K has  been  added  to  accomodate  plane  flows;  K 
equals  zero  for  two-dimensional  plane  flow,  and  unity  for  axlsym- 
metrlc  flow  In  cylindrical  coordinates. 

If  the  equation  Is  to  contain  derivatives  with  respect  to 
g-  and  6-  only,  then  the  coefficients  of  /i/9|  . i 

must  be  equal  to  zero;  thus, 


i A,  - <x^A*  ^ 1 ^ ^ I =o 

Ai^'  +\A»u,/  + fA,]  ^ 4-AxU.^^-o 

-^5  ■'■  “^3  ^ ^ f Ai  + A^ Wj  ^ ^ = O 


Rewriting  these  equations  in  vector  form  gives 

A,  -V^,^  Ax-y^,  = AiVB,  = A+- =o  (13) 

where 

Aj^s  4-  U-jCj  + ) 


^2  = ( + PAi)  + Ax 
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Aj  - As  Uy  €/  + ( PA  I + As  ) <2^  + A 1 ^ 


*4 . +A4H^)e,  + (^  +A4u-j)Cj  +A4<=t 


In  which  e , e , are  unit  vectors  In  the  r,  z,  t directions 
r z t 

respectively,  and  the  gradient  Is  also  taken  In  these  three 
dimensions.  The  expression  represent  the  directional 

derivatives  of  0^,  In  the  directions  of  A^,  A2»  A^,  and  A^. 

Since  they  are  all  zero,  the  vectors  A^  must  lie  In  a common 

plane  normal  to  the  gradient  of  0^,  l.e.,  In  a constant 

plane. 

Equation  (12)  can  also  be  expressed  In  matrix  form: 


— 1 

o 

0 

1 

A, 

0 

O 

0^ 

O 

o 

Ab 

o ^ 

— 

where 


= O 


(14) 


This  Is  a system  of  homogeneous  algebraic  equations  In  the  X's; 
for  a solution  to  exist,  the  determinant  of  the  coefficient  matrix 
must  vanish.  Therefore, 


(15) 
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Thus,  the  solution  for  the  characteristic  surface  consists  of  a 
repeated  linear  factor  and  a quadratic  cone. 

Consider  first  the  quadratic  part  of  the  solution: 


We  wish  to  determine  the  derivatives  of  (l.e.,  the  orientation 

of  the  Pj^  ■ constant  surface)  In  order  to  obtain  the  X's  from  Eq. 

(lA),  which  will  In  turn  yield  the  compatibility  relations  on  the 
characteristic  surface  upon  substitution  Into  Eq.  (11).  We  assume 
a direction  for  Vpj^  as  given  In  Fig.  5 and  rewrite  the  derivatives 

of  P^  In  terms  of  the  new  coordinates  Y and  6 to  obtain 


^ j ^ = f S,n£ 

In  addition,  we  require  that  VP^  be  a unit  vector 


Solving  Eqs.  (16),  (17)  and  (18),  we  obtain 


(17) 


(18) 


£.OS  S 


sini* 

^14 


(19) 


where  q * u^cos  6+  u^sln  6,  and  the  signs  have  been  chosen  to 
agree  with  a direction  of  the  P^  coordinate  as  given  In  Fig.  6. 
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By  substituting  eqs.  (19)  Into  eq.  (14),  we  obtain  the 
values  of  the  multipliers: 


(20) 


With  these  results,  Eq.  (11)  yields  the  compatibility  equations 
for  the  dependent  variables  on  the  characteristic  cone. 


+ fOL  CosS  du/  + fa.  sin  Sdu-J  =■  - 

where 

s=  K ^ SinV  - Sini  cs 


(21) 


The  Intersections  of  the  characteristic  surfaces  with  the 
characteristic  cone  are  the  blcharacterlstlc  curves,  defined 
by  the  following  equations. 


= +a  C.e»S  S 


4 a Sin  ^ 


(22) 


Returning  to  eq.  (15),  the  repeated  linear  solution 


Is  the  equation  of  the  particle  path  line.  By  performing  an 


(23) 
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analysis  similar  to  the  one  on  the  cone,  it  Is  found  that  the 
energy  is  conserved  along  the  particle  path;  i.e.,  the  com- 
patibility equation  is 


Si-. 

Dt 


Dt 


(5) 


From  Eq. 
line, 


(23)  can  be  found 


4n 

dt 


Ur 


cLt  o 


the  equation  of  the  particle  path 


(2A) 


In  summary,  Eqs.  (5),  (6),  and  (21)  comprise  the  govern- 
ing partial  differential  equations  for  the  five  dependent  varia- 
bles p,  p,  u.,  u , and  a,  on  the  characteristic  surface  described 
r z 

by  Eq.  (19).  It  may  be  seen  that,  although  an  infinite  number  of 
equations  can  be  written  in  the  form  of  Eq.  (21),  only  three  will 
be  independent. 
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III.  Finite-Difference  Scheme 


Orientation  of  Blcharecterletlca 


In  order  to  solve  an  Initial-value  problem  numeric- 
ally, Eqs.  (5)  and  (21)  must  be  written  In  finite-difference 
form.  Since  we  will  solve  the  final  equations  algebraically, 
we  must  consider  the  partial  derivatives  3u  /dr  and  3u  /3z  as 
unknowns.  In  other  method-of-characterlstlc  schemes,  these 
terms  are  often  flnlte-dlfferenced;  however,  Butler's  tech- 
nique, the  one  used  here,  presents  a different  approach. 

While  only  three  equations  of  the  form  of  (21)  are  Independent, 
four  are  written  for  the  angles  * 0,  ir/2,  ir,  3ir/2,  then  ap- 
propriately combined  to  eliminate  the  partial  derivatives. 

Flow  properties  at  the  new  point  will  be  denoted  by 
the  subscript  0;  those  at  the  point  on  the  t - tQ-At  plane 

(Initial  surface  for  the  current  time  step)  at  the  base  of  the 
^ > 0-  characteristic  by  the  subscript  1;  those  at  the  base 
point  of  the  ^ ■ ir/2-characterlstlc  by  the  subscript  2;  etc. 

Writing  Eq.  (21)  In  finite-difference  form  along  each 
of  the  blcharacterlstlcs  we  obtain 


- J f A f ^ ^ "4>i  - (25) 

wh.r.  Si»&i 

- s,»eicosei{(^).^ 

where  the  Si's  are  evaluated  In  Appendix  B and  defined  In  Fig.  Bl. 
These  angles  arise  from  the  assumption  that  the  blcharactcrlstlc  curves 
are  not  straight  lines,  thus  preserving  second-order  accuracy. 
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We  may  also  write  the  energy  equation  (5)  in  finite- 
difference  form  along  the  particle  path,  the  properties  at  the 
base  point  of  which  are  denoted  by  the  subscript  5, 


(26) 


If  the  partial  derivatives  at  the  new  point  are  treated 
as  dependent  variables,  then  we  have  so  far  six  equations,  (6), 
(25),  (26),  in  seven  unknowns,  n • P • a , u , u , (3u  /3r)  , 

0 0 0 r 0 

0 0 

(3u  /3z)  , clearly  one  more  equation  is  required  to  solve  the 

z 0 

problem.  We  choose  to  integrate  the  continuity  equation  (1) 
along  the  particle  path. 


Application  of  Finite-Difference  Method 

Having  completed  the  mathematical  system,  it  remains 
to  reduce  it  to  a form  amenable  to  an  Iterative  solution  by 
the  computer.  We  define  the  quantities 


Ap  - - P^ 

0 5 


'»P 


P 

5 


Au  ■ u 
r 


ro 


Au  ■ 


z 


u 


u 

z 


5 
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Substituting  the  values  for  the  we  can  reinrite  the  equations 

in  the  following  form: 

•5  f,a.,  4iri  9,  AWr  = (27) 

-R-' 

■*"2  22ot  01  Aw^  + -^  tiAo  + 

+fi.aiS>r>6i]Au^  = (28) 

- J [f.oi  +c^/li  ] Ai  -R.i 

+ ^ [rTmCk^’^fsCKiCosBi’]AUr  - ^ J^aoL^<5  -Urg]  + 

2 ^ ®3  ” (29) 

- 1 1 p,  aU><-  7?  ■»•  t^*u  - Rs 

Sl^U'^oiS*  - { f.a.lUj,-  434]  + 

(30) 

^ L-Ca.  + fiO*  <.in  ©4.  ] AUj  = 
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(31) 


= - -2  f.  v*^  t*  * i¥/i. + (¥>').  \ ^ 

where 

RA='f»5-+i  + l e&;1°s6;LUrs-U,J  ?&,  Sin  LVM 

+ 2f;aM;  At  ,2=  l,l,s,+ 

(?5  - i f,al  \<  ] At 

Combination  of  the  Comoatlbllltv  Eouatlons 

As  noted  previously,  these  equations  may  now  be  appropriately 
combined  to  eliminate  the  partial  derivatives  (3u  /3r)  , (3u  /3z)  . 

r 0 2 0 

Subtraction  of  eq.  (29)  from  eq.  (27)  yields 

•5^  AUy^ 

(33) 

j tf.A,  Sine,  -fjd, sin  fijl  AUj=  P,-  E, 

Similarly,  subtraction  of  eq,  (30)  from  eq.  (28)  yields: 

^ [ T^CXiCxfsBz-T^Oi^  C.OS  ©41aw^ 

^ l26a.  + fi(X,sin9i-^a4Sin$4]AUj  = R^.-  R^ 

Next,  equations  (27),  (28),  (29),  and  (30)  are  summed  and  this 
result  is  subtracted  from  twice  eq.  (31). 

a Aja.  4 i [ f,0„  C08&,  CoS  +fiA5  ?4(l|  ®4  1 AU»^  + 

Sir\4.lAUj4-  (35) 

- 6«J •i'v' At +2^s  +E.] 

»• 
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Finally,  the  sum  of  Eqs.  (27),  (28),  (29),  and  (30)  is  subtracted 
from  twice  Eq.  (29). 

- 2a^^f  ^ i [f>,  a,  Ocs0, 

f4  ofs^^jA  SM  e,  1^/5  ^2  ^ ^3  sm 

a4  Si/)6f  1a  U^-t  Lur^  - 14^,  ^ 1 ^ 

-faafk  -(^  2 ^ Rs--‘  ER,  * ^2^  ^3’^  R4I 

Thus,  we  have  five  equations,  (6),  (33),  (34),  (35),  and 

(36),  to  solve  for  the  unknowns  a , Ap,  Ap,  Au  , and  Au  at  the 

o r z 

new  point  (r^,  z^,  t^) . For  the  first  iteration,  crude  estimates 

are  made  for  a , p , p , u , and  u_  based  on  corresponding 
o’  o’  *^o’  ro  *0 

values  in  the  initial  time  plane.  Then  using  Eqs.  (22)  and  (24), 
the  four  bicharacteristics  and  the  particle  path  are  projected 
down  to  the  initial  time  plane.  The  flow  properties  at  the  base 
points  are  obtained  by  Interpolation,  and  Eqs.  (6),  (33),  (34), 
(35),  and  (36)  are  solved  for  Improved  values  of  a^,  Ap,  Ap,  Au^, 

and  Au  The  process  is  repeated  until  the  Improved  values  are 
z • 

close  within  a certain  tolerance  to  the  previous  values,  l.e., 
convergence  is  obtained.  (For  details,  see  Appendix  C) 


Boundary  Conditions 

Many  types  of  boundaries  may  be  encountered  in  formulat- 
ing a fluid  flow  problem.  We  shall  discuss  three  main  types, 
namely,  the  particle-path  boundary,  the  exit  boundary,  and  the 
entrance  boundary. 

The  particle-path  boundary  is  the  simplest  to  handle.  It 
may  be  a rigid  wall  with  prescribed  velocity,  a free  surface,  or 
an  Interface  with  another  fluid.  We  have  formulated  the  numerical 
treatment  of  the  rigid  wall  only.  In  this  case,  among  the  four 
blcharacteristlcs  traced  backwards  from  a boundary  point,  only  one 
falls  outside  the  flow  domain.  Fig.  7.  Only  one  property  needs  to 
be  specified,  since  only  one  compatibility  equation  is  missing. 

For  a rigid  wall,  the  vanishing  of  the  normal  velocity  is  the 
proper  boundary  condition.  In  the  example  problem  to  be  presented 
later,  we  have  prescribed  the  pressure  along  a plane  of  symmetry, 
which  may  also  be  considered  as  a rigid  wall. 

On  an  exit  boundary,  among  the  four  blcharacteristlcs 
traced  back  from  a boundary  point,  only  one  falls  outside  the  flow 
domain,  and  the  particle  path  falls  within  the  domain,  Fig.  8. 
Again,  only  one  compatibility  equation  is  missing,  and  only  one 
property  has  to  be  specified.  In  the  example  problem,  we  have 
specified  either  the  pressure  or  one  velocity  component  as  the 
boundary  condition  for  an  exit  boundary. 
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For  an  entrance  boundary,  three  of  the  four  blcharacter- 
Istlcs,  as  well  as  the  particle  path  line,  all  fall  outside  the 
flow  domain.  Fig.  9.  Compared  to  an  Interior  point,  there  are 
five  equations  missing:  three  compatibility  equations  along  the 
three  blcharacterlstlcs,  and  the  energy-  and  mass-conservation 
equations  along  the  particle  path.  But  among  the  seven  unknowns, 
p,  p,  a,  u , u , 3u  /dr,  and  du  /3z,  the  last  one  does  not  appear 

in  our  calculation  scheme.  If  the  tangential  velocity  u^  Is 

specified  along  the  z ■ constant  boundary,  then  3u^/3r  may  be 

considered  as  known.  Therefore,  specifying  three  boundary  con- 
ditions is  sufficient  for  the  solution  of  the  entrance  boundary 
point.  In  the  example  problem,  we  have  specified  the  two  velocity 
components  and  density. 

Boundary  Finite-Difference  Equations 

In  developing  the  finite-difference  equations  for  use  on 
the  boundaries,  an  approach  similar  to  the  general-point  equations 
has  been  used.  First,  consider  the  finite-difference  formulation 
for  the  plane-wall  (particle-path)  and  exit  boundaries,  as  shown 
in  Figs.  7 and  8.  To  solve  for  the  seven  unknowns,  p^,  p^,  a^, 

u , u_  , (3u_/3r)^,  and  (3u,/3z)„,  at  the  boundary  point,  we 

To  *■  O Z 

write  three  compatibility  equations  in  the  form  of  Eq.  (21)  for 
the  angles  <&  « 0,  7t,  and  3ir/2;  these  equations  are  the  same  as 
Eq.  (25)  for  1 ■ 1,  3,  and  4.  See  Figs.  7 and  8.  Also,  we  write 
energy-  and  mass-conservation  equations  along  the  particle  path. 
These,  coupled  with  the  equation  of  state  (6)  and  the  appropriate 
boundary  conditions,  complete  our  system  of  equations. 

In  a manner  similar  to  that  used  for  the  general-point 
finite-difference  equations,  the  derivatives  (3u^/3r)^  and 

(3u^/3z)^  are  eliminated  from  the  system,  yielding  the  following 

difference  equations  for  the  exit-plane  and  plane-wall  boundaries. 

i iff  ^f  ^3  * ^4  OOS  04JaU^  4 

•i-  a,  5/V» 4 f^3  a j sin  0^  * 2f>4aj4 

4 4 2.  - 2 J **  ^5* 
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'i{fi^, Sm &rf*3^3  ^3  ^I^J* * ^JsJ 

~~  ^t,  " ^^"3  ^ “ ^3  " 


where  p Is  specified  for  the  exit-plane  boundary  and  u^  for 
the  plane  wall.  ° 

For  a point  on  the  entrance  boundary,  we  may  write  only 
one  equation  in  the  form  of  (21),  for  the  angle  ^ ■ “itfUt  and 
the  equation  of  state  (6).  The  variables  to  be  solved  for  are 
p^,  p^,  a^,  Uj.^,  u^^,  and  (3u^/3r)^.  To  complete  the  system,  we 
specify  three  boundary  conditions;  the  derivative  (3u  /3r)Q  can 
be  obtained  by  differentiating  the  botmdary  condition  u . The 
single  difference  equation  for  the  entrance  boundary  thus  becomes 

^4  Sfh  ^4  } J 

= - -;t - (^}  * A 

where  u_  and  any  two  of  the  set  {p  , p , a , u.  ) may  be  speci- 
fied. *^0  o o o o 


Numerical  Stability 


The  stability  criteria  for  first-order  non-linear,  hyper- 
bolic, partial  differential  equations  has  been  discussed  in  Refs. 
I^l»  [9]f  [11]  I and  [12].  The  Courant-Frledrichs-Lewy  stability 
criterion  is  a necessary  condition  for  both  linear  and  non-linear 
systems  of  equations.  Briefly  stated,  the  CFL  criterion  requires 
that  the  domain  of  dependence  of  the  difference  scheme  must  con- 
tain the  domain  of  the  differential  equations.  For  simple  diff- 
erence schemes  the  CFL  criterion  is  both  necessary  and  sufficient, 
while  for  a network  such  as  Butler's  (Fig.  4)  the  requirements 
for  stability  are  unclear.  However,  using  the  CFL  criterion  to 
regulate  the  integration  time  Increment  does  seem  to  Insure  sta- 
bility for  our  system.  This  is  most  likely  due  to  the  interpola- 
tion scheme  for  the  cone  base  points,  which  effectively  Increases 
the  domain  of  dependence  of  the  difference  scheme  to  such  an 
extent  that  it  contains  the  domain  of  dependence  of  the  differen- 
tial equations. 
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IV.  Example  Problem 

Application  to  Blast  Wave 

An  example  problem  with  a known  analytical  solution 
Is  solved  numerically  by  the  present  computer  code.  The  error 
between  our  numerical  solution  and  the  analytical  solution  Is 
used  to  judge  the  degree  of  accuracy  of  the  present  code. 

The  problem  chosen  Is  the  cylindrical  blast  wave 
problem  solved  by  Sedov  [10].  This  problem  has  axial  symmetry: 
one  space  variable,  radius  r,  and  one  time  variable  are  suffi- 
cient. In  applying  our  numerical  method,  we  purposely  used  two 
space  variables,  r and  z,  and  one  time  variable.  For  this  two- 
dimensional,  unsteady  problem  the  data  for  the  Initial  condi- 
tions and  boundary  conditions  are  all  taken  from  the  exact  so- 
lution. After  numerical  calculation  of  a number  of  time 
planes,  the  result  Is  then  compared  with  the  exact  solution. 

The  initial  time  chosen  Is  t ■ 159.1  psec  in  the 
blast  wave  problem.  At  this  time,  the  shock  front  Is  at  r ■ 

24  units,  and  a rectangular  area  In  the  r,z  plane  was  chosen 
as  our  domain  of  calculation.  This  domain  was  divided  into  a 
grid  of  18  axial  Increments  of  0.5  unit  ,and  24  radial  Incre- 
ments of  0.5  unit,  as  shown  In  Fig.  10.  Exact  values  of  all 
properties  are  taken  from  Sedov's  solution  and  assumed  as  our 
Initial  values  at  the  t • 159.1  plane  at  these  mesh  points. 

Of  the  four  boundaries  z » 12  (boundary  1 ) and  r ■ 12  (boundary 
4)  are  exit  boundaries,  z ■ 3 (boundary  3)  is  an  entrance 
boundary,  and  r ■ 0 (boundary  2)  is  a fixed  boundary.  The 
boundary  conditions  specified  are:  Ug  along  boundary  1, 

p along  boundary  2 , p , u^.  and  ug  along  boundary  3 , and  p along 
boundary  A.  Values  of  these  quantities  are  taken  again  from 
Sedov's  solution  and  prescribed  along  these  boundaries  for  all 
time. 


With  these  specified  initial  and  boundary  condi- 
tions, we  calculated  the  properties  of  the  Interior  grid- 
points  on  succeeding  time  planes  until  the  50th  time  plane. 
Figure  11  shows  the  points  and  lines  at  which  the  percent  er- 
ror has  been  plotted  in  Figs.  12,  13  and  lA.  The  exact  values 
from  Sedov  are  also  Indicated.  It  may  be  seen  that  the 
error  in  the  density,  the  quantity  for  which  it  has  been  most 
difficult  to  obtain  convergence,  at  the  50th  time  plane  is  less 
than  0.05%  at  all  points.  The  data  also  show  no  sign  of  in- 
stability at  any  point. 
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Figure  1.  Diagram  of  Thornhill's  Characteristic  Scheme. 


Figure  2.  Diagram  of  Sauerweln's  Modified  Tetrahedral 
Characteristic  Scheme. 
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Figure  5. 


Diagram  of  unit  vector  describing  characteristic 


plane. 


Figure  6.  Diagram  of  characteristic  cone  and  coordinate 
system. 


path  to  the  initial  time  plane. 
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Figure  8.  Schematic  of  exit  boundary  plane,  showing 

projection  of  blcharacterlstics  and  particle 
path  to  the  initial  time  plane. 
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Figure  9.  Schematic  of  entrance  boundary  plane,  showing 
projection  of  bicharacteristics  and  particle 
path  to  the  initial  time  plane. 
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I 


I 

1 

Figure  10.  Schematic  of  the  rectangular  domain  within  j 

the  blast  wave  and  shock  front  at  the  initial  | 

time  t * 159.1  ysec.  Initial  energy  - | 

6.887025  X 10®  Joules/m  (1.5482649  x 10® 
ft-lb/ft). 
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Figure  11.  Location  of  grid  points  where  error  Is  plotted. 


Ol. 


Perssu«.e 


45  50 

Tiwic  ‘R.amc  Mum6cC 


- AittAt-'^iociTj'jUz 
— Ra*iau  V/r»-e>t*7y,Ur 


' 5 

\o  IS  2o  25 

35  4o  45  50 

Figure  13. 

Data  at  general  point  A. 

Appendix  A.  Sauerweln's  Finite-Difference  Scheme 

As  presented  in  the  main  text,  the  initial-value  probl^ 

„.y^be^80lved^uBlngEqs.c(5)M^ 

lu^-tSCthe 

rtat  th.  deriv'd...  .re  condnuou.  along  the  three 

bicharacteristics . 

By  writing  Eq.  (21)  in  finite-difference  form  we  obtain 
the  following! 


ki  V* 


C.oi 


S-  = IC  'i!'-’  + ®-'  ‘•“‘•Si  I ■*■ 

6* 


<10S' 


and  e.  1.  defined  In  Appendix  B.  The  .uhacrlp's  1.  2,  and  3 refer 
subscript  0 to  the  new  point  (t^,  r^,  z^)* 
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The  compatibility  equation  along  the  particle  path, 
Eq.  (5),  la  also  written  in  finite-difference  form. 


i spoilt 


Uf*  + 
>4 


(A.2) 


By  requiring  the  derivatives  of  the  particle  velocities 
to  be  continuous  along  the  bicharacterlstlcs  we  obtain  the  following 
six  equations. 


= i I 1 k*-  W 


(A.  3) 


Equations  (A.l),  (A.2),  (A. 3}  and  (6)  constitute  a system 
of  eleven  equations  which  may  be  solved  for  the  eleven  dependent 
variables: 


P i a , p^,  u , u , (3u^/3r)^,  (3u^/3z)^,  (3u^/3t)^, 
o *0 

(3u  /3r)^,  (3u,/3z)^,  (3u,/3t)^. 
z o z o z o 
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Appendix  B 

Derivation  of  the  Blcharacterlstlc  Angle,  0^ 


When  the  characteristic  compatibility  equations  (21)  were  derived, 
It  was  determined  that  the  dependent  variables  varied  along  the  bl- 
characterlstlc curves.  Since  these  are  curves,  and  not  straight  lines, 
the  value  of  the  coordinate  angle  6 with  respect  to  the  negative  r-axls 
{Fig.  5 and  Fig.  Bl}  may  also  vary  along  the  curve  between  the  apex  of 
the  mach  cone  and  the  base  point. 


We  can  express  the  relationship  between  r and  z for  any  point  on  the 
characteristic  conoid  parametrically  as 

r - rU.T)  (3 

z - z(<{i,t) 

where  t - t-tQ  and  4)  Is  defined  as  the  value  of  the  coordinate  5 at  the 
cone's  apex. 

By  using  the  relation 


30J 

Is" 


ir  ^ M H 

3s  3z  3s  3t 


3r 


3s 


where  s Is  taken  In  the  direction  along  the  characteristic  cone, 
and  the  previous  result 


cos  6 


sin  6 


^ \2,l/2*  ^ x2,l/2’ 

U+(q+a)  1 (l+(q+a)  ] 


q+a 

[l+(q+a)2]l/2 


we  can  obtain  a relationship  governing  6 along  the  blcharacterlstlc 
curves 

36./3Z 

■ - 3^57  ■ - «”  « <®-2) 


3r/34> 

3z/3<f 


Referring  to  Fig.  Bl,  we  wish  to  obtain  an  expression  for  the 
angle  6,  which  is  the  value  of  the  angular  coordinate  6 at  the  base 
of  the  cone.  In  order  to  accomplish  this,  we  will  write  a Taylor's 
expansion  for  the  blcharacterlstlc  curve  in  the  direction  of  constant 
When  the  expression  for  0 Is  obtained,  a particular  blcharacter- 
lstlc curve  will  be  designated  by  a subscript  1. 


The  dependent  variables  u , u , a,  and  f niay  be  expanded  In  a 
Taylor  series  about  the  point  rQ,  Iq,  tg,  in  the  direction  of  the 
blcharac  terls  tic . 
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A=flo-  •*•••• 

s=  4-  - 

3\  _ ^“z  " aa  7 ii 

Substituting  u^  « yp,  u^  « ® “ 3t*  3t 

and  neglecting  second-order  terms  we  obtain 

U./  = 

u^.-UjZ 

S ^ 7* 

s«  4> 

Equations  (B.4)  are  now  substituted  into  the  bicharacteristic 
equations  (22) , 

^ 9 (A/*-  U/'K  + ^CKo  - &*C ) C<f -5t\ 


(B.3) 


(B.4) 


(B.5) 
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If  this  result  is  expanded  and  the  small-angle  approximation  is 
used , we  obtain 

^ + A — A©  ^ 5 in  4 ^ oa^aK. 

(B.6) 


which  becomes,  upon  integration, 


(B.7) 


We  now  rewrite  eq.  (B,2)  as 

Sirv5  ^ =-<^  1^ 


(B.8) 


(B.9) 


and  substitute  eqs.  (B.4)  and  (B.7)  to  get 

O.J  = -si.N4- ^ 

which  may  in  turn  be  Integrated  with  respect  to  time  to  yield 

(B.IO) 


a.St  ^3  ^ ^ 

Using  eq.  (B.7)  to  expand  this  result  and  utilizing  the  Taylor 
expansion  for  the  angle  9^^  - 6,  and  t --At: 

6;  =<)>;  + ^-sin4sC^j^V-+ 


i 


1 
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where  the  subscript  i denotes  the  particular  bi^haracteristlc  and 
the  partial  derivatives  are  evaluated  at  time  T.  Equation  (B.  ) 
will  allow  the  variation  of  the  bicharacteristic  angle  0^  to  be 


computed  in  terms  of  the  derivatives  of  the  flow  properties  at  the 
base  of  the  characteristic  cone. 


Appendix  C 


Iteration  Equations 

The  purpose  of  this  appendix  Is  to  present  the  Iteration  schemes 
for  the  general  point,  boundary  point  and  the  corner  point  calculations. 

General-Point  Iteration  Scheme 


As  presented  in  the  main  text,  Eqs.  (€),  (33),  (34),  (35)  and  (36) 

are  used  to  solve  for  the  unknowns  a^,  Ap,  Ap,  Au  and  Au  at  a new 

O r z 

general  point  (rQ,ZQ,tQ)  when  the  fluid  properties  are  given  on  an 


initial  time  plane.  In  order  to  solve  these  equations  by  an  Iteration 
scheme,  we  must  arrange  them  In  a form  which  will  facilitate  the 
successive  calculation  of  the  Improved  values  of  pressure,  density  and 
the  components  of  the  particle  velocity.  To  illustrate  this,  let  us 
represent  Eqs.  (33)  through  (36)  in  functional  form  and  arrange  the 
equations  In  a sequence  which  allows  the  new  property  values  to  rapidly 
converge:  new  values  of  Ap,  Ap, 
following  manner 


Au  and  Au  can  be  obtained  In  the 
r z 


(1) 


Ap'"'  - ^“r*  ^“z* 


Au 


Au 


Ap 


(1) 

r 

(1) 

z 

(1) 


AUj.,  Au^,  Ap) 
f^(Ap^^\  Au^^\  Au^,  Ap) 
f^(Ap^^\  Au^^\  Au^^\  Ap) 


Eq.  (35) 
Eq.  (33) 
Eq.  (34) 
Eq.  (36) 


where  the  superscript  refers  to  the  Improved  value.  It  Is  noted  that. 
In  the  course  of  the  Iteration  scheme,  the  value  of  the  sound  speed 
Is  continuously  refined  using  Eq.  (6)  as  new  values  for  pressure  and 
density  are  obtained. 


For  the  first  Iteration,  crude  estimates  are  made  for 
®0'  *^0’  ^rO  '^zO  their  corresponding  values  in  the 

Initial  time  plane.  Thus  using  Eqs.  (22)  and  (24),  the  four  bl- 
characterlstlcs  and  the  particle  path  are  projected  down  to  the  Initial 
time  plane.  The  flow  properties  at  the  base  points  are  obtained  by 
Interpolation  and  Eqs.  (6),  (33),  (34),  (35)  and  (36)  are  solved  for 
improved  values  of  a^,  Ap,  Ap,  Au^  and  4u^.-  This  process  is  repeated 

until  convergence  is  obtained  within  .0001  for  each  flow  property.  The 
reader  Is  referred  to  subroutine  GENCOR  in  the  computer  program  for 
the  general  point  Iteration  process. 
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As  presented  in  the  main  text  Eqs.  (6),  (37),  (38),  and  (39)  are 

used  to  solve  for  the  unknov^’n  flow  properties  p„,  p^,  a.,  u u ^ 

0 0 0 rO  zO 

at  a new  point  on  the  boundary  of  a plane  wall  or  exit  plane  boundary. 
Again,  In  order  to  solve  these  equation^  by  an  Iteration  scheme,  we 
arrange  them  In  a form  which  will  facilitate  the  calculation  for  the 
improved  flow  property  values.  To  show  this,  let  us  represent  Eqs. 

(37),  (38),  and  (39)  In  functional  form  and  arrange  the  equations  in  a 
sequence  which  allows  a rapid  convergence:  new  values  of  p^,  p^,  u^^ 

and  u^Q  can  be  obtained  In  the  following  manner 
Prescribed  Pressure  Boundary 

Au^^^  * 8j^(yt  Au^,  Au^,  Ap)  Eq.  (39) 

Au^^^  - g2(y.  Au^^\  Au^,  Ap)  Eq.  (37) 

Ap^^^  - g,(y,  Au^^\  Ap)  Eq.  (38) 

j r z 

Prescribed  Normal  Velocity  Boundary 

Ap^^^  - hj^(Ap,  Au^,  X,  Ap)  Eq.  (37) 

Au^^^  - h2(Ap^^\  Au^,  X,  Ap)  Eq.  (39) 

Ap^^^  - h^(Ap^^\  Au^^\  X,  Ap)  Eq.  (38) 

where  the  superscript  refers  to  the  improved  values  of  the  flow  properties 
and  y 1s  the  prescribed  pressure  and  x the  prescribed  normal  velocity. 


The  iteration  scheme  for  determining  the  flow  properties  at  a 
boundary  point  Is  similar  to  that  of  the  general  point.  The  reader  Is 
referred  to  subroutine  BONPT  in  the  computer  program  for  the  boundary 
point  iteration  process.  It  Is  noted  that  the  difference  equation 
shown  for  computing  Ap^^)  for  a prescribed  normal  velocity  in  subroutine 
BONPT  Is  equivalent  to  Eq.  (38). 

Corner-Point  Iteration  Equations 

For  the  example  blast-wave  problem,  two  comer-point  Iteration 
schemes  were  developed.  These  handled  corner  points  A (at  the  inter- 
section of  boundaries  1 and  4)  and  B (boundaries  1 and  2)  as  shown 
In  Fig.  Cl.  The  corner  points  C and  D on  the  entrance  boundary  need- 
ed no  iteration  scheme,  since  all  of  the  dependent  variables  must 
be  specified  in  the  boundary  conditions.  Points  A and  B differ  in 


! 


i 


( 

I 

! 

i 
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the  prescribed  component  of  particle  velocity  with  respect  to  the 
local  coordinate  system,  and  In  the  choice  of  compatibility  equations. 


For  corner  point  A,  the  equations  used  to  obtain  a solution  are 
the  equation  of  state  (6),  two  blcharacterlstlc  equations  (25)  for 
1*3  and  4 and  energy  - mass  - conservation  equations  (31)  and  (32). 
IVo  boundary  conditions  are  also  specified  to  complete  the  system. 
After  combining  these  equations  to  eliminate  the  derivatives,  we  may 
arr.inge  them  in  a form  suitable  for  iterative  solution. 

where  Y Is  the  prescribed  pressure  and  Z Is  the  prescribed  normal 
velocity  along  boundary  1. 

For  corner  point  B,  a similar  procedure  is  used  to  develop 
the  iteration  equations.  The  only  difference  from  point  A is  that 
blcharacterlstlc  equations  (25)  are  written  for  1*2  and  3.  The 
difference  equations  are  presented  below. 

6ui!*  = - r.ft,lU,',-U^,+Uj4  -Uj,  1 4ZHs  ~ 

where  Y is  the  prescribed  pressure  and  Z is  the  normal  velocity. 

The  iteration  scheme  for  determining  the  flow  properties  at  a corner 
point  Is  similar  to  the  boundary  point.  The  reader  is  referred  to 
subroutine  CORNPT  in  the  computer  program  for  the  corner  point 
iteration  process. 


44 


Figure  Cl,  Schematic  of  Flow  Field  Showing  Characteristic 
Base  Points. 
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Appendix  D - Limitations  of  the  Computer  Code  and  Input  Preparation 
Structure  of  the  Computer  Code 

The  basic  structure  of  the  computer  code  Is  diagrammed  in  Fig.  D.l. 

Of  the  nine  main  parts  Into  which  the  code  is  divided,  the  first  two  read 
In  the  problem  data  and  nondlmenslonallze  the  variables. 

The  third  part  scans  the  mesh  data  and  determines  which  mesh  points 
are  active  or  Inactive;  active  points  in  the  rectangular  mesh  are  those 
which  lie  within  the  region  of  calculation.  This  part  also  decides  which 
mesh  points  are  "odd";  these  are  points  located  In  the  Interior  of  the 
flow  domain  but  too  close  to  a boundary  for  solution  by  the  general-point 
routine.  The  solution  at  odd  points  Is  obtained  by  interpolation  between 
neighboring  points  on  the  new  time  plane. 

The  fourth  section  of  the  code  determines  the  time  increment  between 
the  old  and  new  time  planes,  in  a manner  to  insure  stability  according  to 
the  Courant-Friedrlchs-Levy  criterion. 

In  the  next  three  parts,  the  difference  equations  are  integrated  to 
obtain  solutions  at  the  boundary  corner  points,  boundary  points  and  general 
points  in  the  new  time  plane. 

The  last  two  sections  obtain  the  solutions  at  odd  mesh  points  by 
interpolation,  then  transfer  the  variables  of  the  new  time  plane  into  the 
arrays  where  variables  in  the  old  time  plane  are  stored.  The  last  part 
also  re-dimensionalizes  the  solution  data  for  printout  on  those  time  planes 
selected  by  the  user. 

Limitations  and  Instructions  for  Modification 


As  listed  in  Appendix  E,  the  code  is  limited  to  problems  involving  a 
25  X 25  (or  smaller) mesh,  fewer  than  10  boundaries  each  with  not  more 
than  20;  coordinate  points:  tabular  boundary-condition  data  may  not 
exceed  20  entries.  These  maximum  values  may  be  enlarged  by  increasing  the 
subscripts  of  the  appropriate  variables  in  the  COMMON  and  DIMENSION  state- 
ments wherever  they  appear  within  the  code;  however,  this  will  also  in- 
crease the  core  requirement  of  the  computer  code.  An  example  is  given  on 
page  48* 

The  boundaries  of  a problem  are  numbered  counter-clockwise  starting 
in  the  upper-right-hand  corner,  and  boundary  data  must  be  input  in  the 
same  order.  The  entire  flow  domain  must  lie  in  the  first  quadrant  of  the 
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r,z  coordinate  system,  and  the  flow  entrance  boundary  must  be  on  that  side 
of  the  flow  domain  which  Is  toward  the  r-axls  (as  in  Fig.  D.2).  The  general- 
point  mesh  coordinates  are  represented  by  r^^j  and  z±^,  where  1 Is  the  axial 
index  and  j the  radial  Index.  The  boundary-point  coordinates  are  rjjj^.  and 
Zbij>  where  1 indicates  the  number  of  the  boundary  and  J is  the  Index^along 
the  boundary. 

The  program  assumes  uniform  initial  conditions.  If  the  user  chooses 
to  specify  other  initial  conditions,  he  may  do  so  by  inputting  all  the 
initial  data  at  each  mesh  point.  The  general  mesh-point  coordinate  data 
must  begin  in  the  lower-left-hand  comer  (nearest  the  origin)  of  the 
rectangular  mesh.  The  axial  rows  increase  monotonlcally  along  the  z-axis, 
and  the  radial  columns  Increase  along  the  r-axls. 

The  manner  of  locating  the  boundary  mesh  points  is  determined  by  the 
angle  0 between  the  boundary  and  the  r-axis.  If  -45°  < 0 < 45°  or 
135°  < 0 ^ 225°,  then  the  boundary  mesh  points  are  located  at  the  inter- 
sections of  the  vertical  lines  in  the  mesh  grid  with  the  boundary  (see 
Fig.  D.2).  For  other  values  of  the  boundary  angle,  intersections  at  the 
horizontal  mesh  grid  lines  are  used. 

As  listed  in  Appendix  E,  the  code  uses  the  equation  of  state  for  a 
perfect  gas.  To  employ  some  other  equation,  tie  user  must  modify  the 
function  S0UND(p,p),  which  computes  the  sound  speed  from  the  density p and 
pressure  p. 

A variety  of  boundary  conditions  have  already  been  implemented,  includ- 
ing a constant  pressure  line,  stationary  solid  boundary,  free  surface,  and 
flow  entrance  boundary.  Provision  has  also  been  made  in  the  code  for 
additional  boundary  conditions  to  be  developed  in  the  future;  these  Include 
a moving  solid  boundary,  contact  discontinuity,  and  shock  discontinuity. 

For  completeness,  input  data  coding  information  on  accessing  these  currently 
non-functioning  parts  of  the  program  has  been  Included  in  the  following 
pages. 

If  the  user  wishes  to  specify  boundary  conditions  computed  from  an 
analytical  solution,  he  must  supply  the  subroutine  EXACT(r , z, t) , specify 
MCODE(I)  * 1 for  that  boundary,  and  possibly  modify  parts  of  subroutines 
CORCOM  and  BCOMP.  However,  it  is  recommended  that  the  boundary  conditions 
be  specified  in  tabular  form. 
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Increasing  the  Code’s  Problem-Size  Capacity 


The  changes  necessary  to  relax  the  problem-size  limitations 
discussed  above  will  be  Illustrated  by  an  example. 

To  solve  a problem  requiring  a 26  x 27  mesh,  11  boundaries,  23 
points  along  the  longest  boundary,  and  28  entries  In  the  boundary- 
condition  data  table,  the  following  alterations  must  be  made: 

Change  the  unlabelled  COMMON  block,  wherever  it  appears  In  the 
code,  to 

COMMON  RM(26,27),ZM(26,27),P(26,27,2),A(26,27,2),RHO(26,27,2), 
UR(26,27,2),UZ(26,27,2) ,NOR,NOZ,RBM(11,30,2) ,ZBM(11,30,2) , 
RB(11,24,2),ZB(11,24,2) ,THETA(11 , 30,2) ,PB(11, 30,2)  ,AB  (11, 30,2) , 
RH0B(11,30,2),URB(11,30,2),UZB(11,30,2),NACTVE(26,27)  ,NODD(26, 
27),NBACT(1],30,2),NBODD(11,30,2),ITYPE(11,30,2),INUM(11,30,2), 
LBPT(11),IAXES(11,30) 

Change  the  COMMON  block  labelled  BOUND,  wherever  it  appears,  to 

COMMON / BOUND /J CODE (11)  ,KC0DE(11,3)  ,LC0DE(11)  ,MC0DE(11)  ,BTIME 
(11,28,3),BC0N(11,23,28) ,BSPCE(11.23),AC0N(11,23,28)  ,CC0N 
(11,23,28) 


I 
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Instructions  for  Use  of  Code 


This  appendix  presents  the  computer  code  Input  data  and 
test  case. 

The  Input  consists  of  the  following  Items,  where  * indicates 
fixed-point  (Integer)  data: 

1.  Units  identification  card. 

Type  'SI'  (left-justified)  for  S.I.  Units  or  'English' 
for  English  (f.p.s.)  Units. 

2.  The  first  card-series  contains  the  following  inout 


parameters : 

FORMAT  (2(13, 2X),  6E10.0,/E10.0,  11,  4X,I2) 

a. 

NBP* 

- number  of  boundaries 

b. 

NTIME* 

- number  of  time-plane  calculations 

c. 

DELR 

- radial  mesh  increment , m or  f t 

d. 

DELZ 

- axial  mesh  increment,  m or  ft 

e. 

RINIT 

- initial  radius,  m or  ft 

f. 

RFINAL 

- final  radius,  m or  ft 

g* 

ZINIT 

- initial  axial-direction  value,  m or  ft 

h. 

HFINAL 

- final  axial-direction  value,  m or  ft 

i. 

TIMER 

- stability  time  constant;  £ .5 

j. 

KPRINT* 

- convergence-loop  print  indicator 
“ 0,  no  intermediate  print  output 
■ 1,  intermediate  print  output 

k. 

MSKIP* 

- indicates  number  of  time  planes  to 
be  skipped  in  the  printout 

3.  On  the  second  card  in  the  first  card-series; 
FORMAT  (6E10.0,I1) 


1 

a. 

PINIT 

- reference  pressure  for  non-dimensional 
2 2 

purposes,  N/m  or  Ib/ft 

f 

b. 

RH0INT 

- reference  density,  kg/m  , or  slugs-per- 
cu-ft 

c. 

AINIT 

- reference  sound  speed,  m/sec,  or  fps 

d. 

TIME 

- initial  time  of  solution,  sec 

1' 

1 

e. 

WIDTH 

- reference  dimension  for  non-dimensional 
purposes,  m or  ft 

1 

f. 

KAXIS 

- Indicates  whether  flow  is  two-dimensional 
or  axi-symmetric 

* 0,  two-dimensional  flow 

* 1,  axi-symmetric  flow 

t 

I 


g.  NC0DE*  " indicates  If  initial  mesh  data  will  be 

Imput  or  whether  the  program  will  generate 
the  data 

* 0,  the  program  will  generate  the  mesh 
data  (user  must  supply  Initiallelng  sub- 
routine INITIAL) 

«=  1,  the  mesh  data  will  be  input 

4.  The  second  card-series  contains  the  boundary-mesh  input 
data 


a.  The  first  card  in  this  series  contains  the  number  of 
spatial  points  on  a boundary  and  a boundary  condition 
function  Indicator  FORMAT  (10(I2,4x) 

1.  LCClDE(I)*  - number  of  spatial  points  on  the  boundary 

2.  MC0DE(I)*  - boundary  condition  function  Indicator 

■ 0,  boundary  condition  will  be  input 
= 1,  boundary  condition  will  be  com- 
puted analytically  (user  must  supply 
SUBROUTINES  EXACT  and  INITIAL) 

b,  The  second  card  in  this  series  contains  the  spatial  coor- 
dinates of  the  boundary  points.  FORMAT  (5E10.0) 

1.  RB(I,J)  - coordinate  of  the  jth  point  on  the 

ith  boundary  in  the  radial  direction. 

2,  2B(I,J)  - coordlante  of  the  jth  point  on  the 

1th  boundary  in  the  axial  direction 

NOTE:  J varies  from  1 to  LC0DE(I)  and  I varies  from 

1 to  NBP. 

5.  The  third  card-series  contains  the  boundary  condition  data 
for  the  boundary  mesh  points.  F0RMAT  (10(12, 4X)) 

a.  The  first  card  specifies  the  type  of  boundary  condition 
and  the  number  of  time  values  that  the  boundary  con- 
dition is  specified. 

1.  JC0DE(I)*  - specifies  type  of  boundary  condition 

* 1,  constant  pressure  line 
= 2,  normal  velocity  line  or 

stationary  solid  boundary 

- 3,  free  surface 

■ 4,  contact  discontinuity 

- 5,  moving  solid  boundary 

■ 6,  shock  front 

- 7,  entrance  boundary 

2.  KC0DE(I,K)*-  specifies  number  of  time  values 

■ 0,  indicates  boundary  condition 

independent  of  time 

NOTE:  K varies  from  1 to  3 depending  on  the  boundary  condition. 
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b.  The  second  card  specifies  the  value  of  time  for  the 
boundary  condition.  FORMAT  (5E10.0) 

1.  BTIME(I,J,K) -time,  seconds 

NOTE:  K varies  from  1 to  KC0DE(I,1).  If  KC0DE(I,1)  is 

zero,  no  card  will  be  input. 

c.  The  third  card  in  this  series  specifies  the  value  of 
the  boundary  condition  at  each  point  on  the  boundary 
as  a function  of  time.  F0RMAT(5E1O.O) 

1.  BC0N(I,J,K)-  value  is  dimensionless.  It  is  either 
dimensionallzed  with  respect  to  the 
reference  pressure  or  reference 
sound  speed. 

NOTE:  I varies  from  one  to  NBP,  J varies  from  one  to 

LC0DE(I),  and  K varies  from  one  to  KC0DE(I,1). 

d.  If  JC0DE(I)  is  equal  to  7,  a second  and  third  boundary 
condition  are  input,  i.e.,  (b)  and  (c)  are  repeated. 

6.  The  fourth  card-series  contains  the  general-mesh  input 
data.  FORMAT ( 7 ElO.O) 


The  cards  contain  the  radial  and  axial  coordinates  of  the 


mesh  point  and 

1.  RM(I,J) 

2.  ZM(I,J) 

3.  UR(I,J,1) 

4.  UB(1,J,1) 

5.  P(I,J,1) 

6.  RH0(I,J,1) 

7.  A(I,J^) 


corresponding  properties. 

- radial  coordinate  of  the  mesh  point,  m or  ft 

- axial  coordinate  of  the  mesh  point,  m or  ft 

- dimensionless  radial  velocity  ratio 

- dimensionless  axial  velocity  ratio 

- dimensionless  density  ratio 

- dimensionless  density  ratio 

- dimensionless  sound  speed  ratio 


NOTE:  This  card  set  only  appears  if  NC0DE  is  greater 

than  zero.  I varies  from  1 to  the  number  of 
rows  and  J varies  from  1 to  the  number  of  columns. 


7.  The  fifth  card-series  contains  the  boundary-mesh  imput  data. 

a.  The  cards  contain  the  radial  and  axial  coordinates  ef  the 
boundary  mesh  point  and  the  corresponding  properties, 
fhe  boundary  mesh  points  should  be  input  in  the  same 
direction  as  the  boundary  points  in  (4b). 

1.  RBM(I,J,1)  - radial  coordinate  of  the  boundary  mesh 

point,  m or  ft 

2.  ZBM(I,J,1)  - axial  coordinate  of  the  boundary  mesh 

point,  m or  ft 
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3,  URB(I,J,1)  “ dimensionless  radial  velocity  ratio 

A.  UHB(I,J,1)  - dimensionless  axial  velocity  ratio 

5.  PB(I,J,1)  “ dimensionless  pressure  ratio 

6.  RH^B(I,J,1)-  dimensionless  density  ratio 

7.  AB(I,J,1)  - dimensionless  sound-speed  ratio 
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Listing  of  Sample  Problem  Input  Data 
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Read  Input  Data 
Print  Out  Initial 
Data 


t 

Non- Dlmens ionali ze 
Variables 


t 

Determine  Active  and 
Inactive  Points  in 
Mesh  Grid  and  Odd 
Mesh  Points 


Scan  Mesh  Data  To 
Determine  Time 
Increment t At,  For 
Next  Time  Plane 


Calculate  Corner  Point 
Properties  in  New  Time 
Plane 


V 

Flow  Chart  Showing  Structure  of  Program 
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Confute  Boundary  Point 
Properties  In  New  Time 
Plane 


Figure  D.l  Flow  Chart  Showing  Structure  of  Program 
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Figure  D.2  Schematic  of  Blast  Wave 

Illustrating  Mesh  Coordinates 
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Appendix  E 
Listing  of  the 
MCDU  43  Computer  Code 


Contents 


Main  Program 

page  no. 

59 

69 

Subroutine  ABDIF 

72 

Subroutine  ABGEN 

75 

Subroutine  ACTIVTY 

75 

Subroutine  ADJUST 

76 

Subroutine  BCOMP 

80 

Subroutine  BDPROP 

81 

Subroutine  BEGIN 

82 

Subroutine  BONPT 

83 

Subroutine  BOUNDY 

90 

Subroutine  BSERCH 

92 

Subroutine  CNRBD 

94 

Subroutine  COMPEQ 

96 

Subroutine  CONVRT 

97 

Subroutine  CORCOM 

101 

Subroutine  CORNPT 

103 

Subroutine  DERIVE 

106 

Subroutine  DIFBD 

107 

Subroutine  DIFFER 

108 

Subroutine  EXACT 

109 

Subroutine  FIND 

112 

Subroutine  FINITE 

112 

Function  FLAGRE 

113 

Subroutine  GENCOR 

115 

Subroutine  GENERAL 

117 

Function  GRS 

118 

Function  GRl 

119 

Subroutine  GUESS 

120 

Subroutine  INITIAL 

121 

Subroutine  INPROP 

123 

Subroutine  INTEG 

124 

Subroutine  INTERP 

124 

Subroutine  LAGRNE 

125 

Subroutine  ODDPT 

128 

Subroutine  PHYCHR 

129 

Subroutine  PREPB 

130 

Subroutine  PREPDO 

131 

Subroutine  PREPOD 

Subroutine 

PREPRS 

133 

Subroutine 

PRINT 

135 

Subroutine 

REPLCT 

136 

Subroutine 

RPRIME 

137 

Subroutine 

SCAN 

138 

Subroutine 

SEARCH 

139 

Subroutine 

SET 

140 

Subroutine 

SOLCT 

141 

Subroutine 

SORT 

143 

Function 

SOUND 

144 

Subroutine 

TRNSFR 

145 

Subroutine 

TRSCNR 

146 

REAL  KAXIS 

0IHFNSI0NNSn6),NDAT(20l«PR0PU30)«X(30ltERR0RC5) 
CQPPGN/PLANE/URG(5),UZG(5ltPGf5}fRHQGC5)tRG(5}tZG(5)tAGf 5), 
.PNEWtRHNEM«ANEM»URNEU«UZNEWtRAPtZAPtRNEWfZNEW 
COPPON/OATA/ITESTtNRPtVlOTH«ANCLE 

COPPCK  RHf 25,?5l»ZM(25,25},P(25*25t2)f A(25«25f2),RHO(25f25,2)  t 

• URI 25t25t 2) tUZC25« 25,2 1 f NCR tNOZfRBHf 10.30*2 )tZBM(lOf 30*2 It 
.RB( 10,21 ,2I,ZBI 10,21,2l,THETAf 10, 30,2 1, PBf 10,30,21 ,AB( 10, 30,2 1, 

• RH0B(10,3O,2l,URB(  10,30,2  I ,UZBI10,30,2 1 .NACTVEI 25, 25) ,NOOD(  25, 25) , 
.NBACTI  10,30,2) ,NBGOO( 10,30,2) , TTYPEC 10,30,2 ), INUM( 10,30,2 ) , 

• LBPm0),IAXES(10,30) 

CCPPON/FXT/URR ,UZ7  ,PRAT ,RRAT,ARAT 
COMMON/STATE/P INIT,RHOINT,AINIT  _ 

CCMPCA/BCUNO/JCOOF ( 10) .KCCOFC 10,  3)  ,LCODE(  10) ,MCODE ( 10) , 

.BTT ME  (10,20,3) ,RCON(10,20,20) ,BSPCE(  10,20), ACONC 10,20,20), 

• CCGM  10,  20,20) 

PI-3.1A15926535898 

DATANCAT/*  TI«,*ME  ', ILL* ,* I SEC* ,• PRES* ,» SURE* ,* NORM* , ' VFL', 
1*VELC*,*CITY*,*L8/S*,*Q-FT*,*  FT/*,*SEC  *,*  FT/*,*SEC  *, 
2*DENS*,*ITV  * ,*SL/C*,*U-FT*/ 

OATANSI/*NT/S* ,*0-P  *,*  M/*,*SEC  *,*  M/*,*SEC  */ 

OATi  SI/»SI*/ 

100  PRINT820C 
REACBOOl.SST 
IF(SSI.NE.SnGOT0102 
0n6AI«l,6 
J«I*10 

64  NOAT(J)«NSim 

102  REAO(5,8COC)NBP,NT1HE,DELR,OELZ,RINIT,RFINAL,ZINIT, 
.ZFINAL,TIPEK,KPRINT,MSKIP 
C READ  INITIAL  REFERENCE  CONDITICNS 

REAr(S,8022)PINIT,RHGlNT,AINIT,TIME,WIDTH,KAXlS,NC00E 

CONST«PINn/(RHOINT*AIMT*AINIT) 

C REAO  eCtJNDIRY  CATA 

00  lie  I-1,NBP 

REAr(5,8002)LC0DE(  I),MC0nF(I) 

KSPCE»LCODFn) 

110  RFAC(9,e021)((R6(  I , J, 1 ) ,ZB( I, J, 1 ) ) , J*1 ,KSPCE) 

C SET  UP  BOUNDARIES 

00  114  I«1,NBP 
KSPCE»LCOnE(  I) 

00  114  J«1,KSPCE 
RBn,J,2)-RB(I  ,J,1) 

114  ZB(I,J,2)*ZBU,J,i) 

C READ  EOUNCARYCCNOITICNS 

on  200  I-l.NBP 

REAC(5,8002)JCODE(  I),(KCOOE(I,K) ,K«1,3) 

IF(  (JCQDEI I).EQ.4).0R. ( JCOOFd ).EQ.6 ) .OR. (JCOOE( I ) .EQ.8) ) 

.GO  TO  200  _ __ 

IFlMCGOEin.EQ.i)  GO  TO  200 
KSPCE^LCOOEI  I) 

KTIHE«KCGDE(  1,1) 

IF(KTIME.EO.O)KTIME»1 
00  202  K«1,KTIME 

IFIKCOOEI  I,1).GT.O)READ(5,802I)BTIHE(  I,K,1) 

REA0(5,b621)  (BCONI  I, J,K),  J«1,KSPCE) 

202  CONTINUE 

IF(JCC0E(I).NE.7)G0  TO  200 
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KTIPE«KCODE( If  2)  

on  204  K»1,KTIHE 
IF<KTIHE.FQ.0IKTIME«1 

IFIKCCDEI  It2).GT.O)REAOI5f  8021}BT!MEntKf2) 

RE  AC  (5,8021)  (ACONI  I,  J,K),  J-UKSPCE) 

204  CONTINUE 

KTIPE*KrC0E(I,3l 
IF(KTINE.EQ.OIKTIME«l 
no  206  K*l,KTIME 

IF(KCC0E(I,3).GT,0)READ(5,8021IBTIME(I,K,3) 

RFAni  5,8021) (CCnNi  I,J,K),J«l,KSPCEI 
206  CCNTI^UE 
200  CONTINUE 

CALL  AOJLST 

NOR  = IFIX((RFINAL-R IN  I T^OE LR/IO. ) /DEL R ) ♦! 

NCZ  = IFIX((ZFINAL-ZINIT4nELZ/l''.l/0ELZI+l 
C PFAD  IN  MFSH  COORDINATES  AND  P<’OPERTIES 
C I REFERS  TO  THF  ROW  AND  J RFFFRS  TO  THE  COLUMN 

IFINCCOE.EC.OIGO  TC  400 
on  302  1*1, NOZ 
00  302  J*1,NPR 

302  REAn(5,802C)RM(I,J),ZM(I,J|,UR(I,J,l),UZ(  I,J,l),P( I,J,1),RH0( I,J,l 
. ),A(I,J,  1) 

CALL  SEAPCHinELRfOEL..  3 IN  IT,  Z I NIT  , I ) 

CALL  PSERCHIOELRfDELZ,  1) 
rn  306  1*1, NBP 
KSPCE*LBPTII I 
DO  306  J*1,KSPCE 

306  REAC(5,8020)R8M(  I,  J,1),ZBP(I,J,1),URB(I,J,U  ,UZA(  I , J , 1 ) , PB(  I , J , 1 ) , 
• PH0E(I,J,n,A3(I,J,l  ) 

GO  TO  410 
400  CONTINUE 

C SFT  INITIAL  VALUES  IN  HESH 

CALL  SEARCH! DPI  R,0ELZ,RINIT,ZINIT,1) 

CALL  eSEPCH(OELR,OELZ,ll 
CALL  INITI AL(nELR,OELZ,TIMEI 
410  CONTINUE 

C WRITE  OUT  INPUT  DATA 

WPITEf6,8230) 

WRITF(6,E222) 

WRITE(6,827OIN0P,NTIME,nELR,DELZ,RINIT,RFINAL,ZINIT,ZFINAL 

WPITE(6,8240) 

WPITF(6,8242) 

IF(SI.E0.SSI)PRINT8245 

IF(SI.NE.SSIIPRINT8244 

WRITEI6,3280)PINIT,RH0INT,AINIT,MI0TH,TIMEK 
PRINT8003,KAXIS,NCCOE,KPRINT,NBP,NTIME,NBT,NPLOT 
KRITF(6, 82501 
WRITE(6,8252) 

IF(SI.E0.SSI)PRTNT8255 
IF!  SI.NE.SSDPRINT8254 
r.  WRITE  OUT  BOUNDARY  POINTS 

00  700  1*1, NBP 
KSPCE*LCOnE(II 
WRITEI6, 9256)1 

700  WRITE(6,8250) (<L,RB(I,L,1),ZB!  I, L, 1 ) ) ,L*1, KSPCE ) 

C WRITE  OUT  BOUNDARY  CONDITIONS 

HRITE!6,84C0) 
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DO  70?  I-l.NBP 
WRITE(6(8220I 
NBPl*l4l 
Kl*JCCDFm 

GO  T0(720t722t720f 702(722»702f724) tKL 
720  KJ*5 
KK«6 

GO  TO  726 
722  KJ»7 
KK«13 
GO  TO  726 
724  KJ«S 
KK*13 

726  CCNTTNUP 

KTIPF*KrCDE( T, 1) 

KSPCF*LCCDE(  I) 

IF(PCODF(I).GT.OJGC  TO  701 

1F(KTIMF.FQ.0)G0  TC  704 

DC  703  K»l,KTIMF 

WRITE (6t0424l 

WRITE(6f  e410)8TIME  (I  tK,n 

WRITE(6f  8420|I,NBPl«NDAT(KJI»N0ATfKJ^n 

WRITE  (6,  8422JNCATI  KKI,NOAT(KK+n 

DO  706  J*ltKSPCE 

706  WRITEl6,8425)BSPCEn,JI,BC0Nn,J,K) 

703  CONTINUE 

IF<JCC0Em.NE.7)GC  TO  702 
C WRITE  OUT  SECOND  BCUNOARV  CONDITION 

728  CONTINUE 
KJ«17 
KK»I8 

KTIPF»KCCOECl,2l 
IFIKTINE.EQ.OIGO  TO  705 
DO  730  K*l,KTTNF 
WRITE(6»8424) 

WRITE(6,8410ieTIMEn,K,2l 

WRITE(6,8420IIfNBPl,NDAT|KJ| 

WRITE  (6*  8422  INC  ATI  KKI  , NDATfKK^^l) 

DO  732  J«lfKSPLE 

732  WRI7F|6,8425I8SPCEII,  Jl.ACONUfJfKI 
730  CONTINUE 
740  CCNTINUF 
KJ»S 
KK»13 

KTIPE»KCC0En,3l 
IFIKTIME.EO.OIGO  TC  707 
DO  734  K«l,KTIME 
WRITEI6, 84241 
WRITE(6,8410)BTINEIItK«3) 

WRITE  I6> 84201 1 *NBP It NOATIKJItNOATIKJ^l) 
WRITE<6,8422)NDATIKK|,NDATfKK+ll 
DO  736  J*l.KSPCE 

736  WRITEI6«8425)BSPCE<ItJlfCC0Nnf  JfKl 
734  CONTINUE 
GO  TO  702 

704  WRITE(6«84241 
WRITE(6,84121 

WRITE(6,8420n  tNBPltNOATlKJItNCATIKJ^l) 
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wniT^(6t84?2)NDATlKK) tNDAT(KK^l) 

00  708  J-l,KSPCE 

708  WRITE(6,8425IBSPCE(I«J),BC0N(I,J,n 
IFfJC0nFfn.NE.7IG0  TO  702 
GO  TO  728 
705  VIRITEf6,8A24) 

WRITEf6,8412) 

WRITEf6,H420II«NBPl«NDATf  KJ)»NDATtKJ^n 
MRITPf 6t  8422IN0ATt KKI tNOATfKK^ll 
no  738  J»l,KSPCF 

738  WPITF(6,8425|flSPCFf I,JI,ACCNf I,J,ll 
GO  TO  740 
707  WPITEf6, 84241 
WPITE(6,8412) 

WRI  TF(6,84  20n  fNBPl.NCATf  PJI  fNOATfKJ^ll 
WRITFf6.8422)N0AT(KK|,KrATfKK4>ll 
no  742  J*l,KSPCF 

742  WRITFf6,8425)PSPCEfI.J»,CCONf I,J,ll 
CO  TO  702 
701  WRITE(6, 842811 
702  CCNTI^UE 

C WRITE  CJIJT  HFSH  POINT  COOROINATES  AND  PROPERTIES 
WRITFf6,8260) 

WPITEf6, 82621 
WPITE(6»82641 
no  710  1*1, NOZ 
DO  710  J=1,N0R 

710  WRITE(6,83001I ,J,PP( I, Jl.ZMf I, Jl.Pf I,J,ll,RHOf I,J, 11, 

.A( I,J,  11 ,UP| I,J,ll  ,UZf I,J,I1 
r WRITF  CUT  enUNCiPV  CATA 

WRITF(6, 82581 
WPITFffi, 82621 
WRITEI6, 52641 
OC  776  1*1, NBP 
KSPCF=LRPTf II 
00  776  K*l,KSPrF 

776  WRITE(6,83001T,K,R6Mf I,K,ll,ZBHf  IfK,ll,PBt I,K,ll,RHOBf I,K,11, 
.AB(  I,K,1I,URB(  I,K,  llfUZBl  I,K,H 
C NON-OIMENSIONALIZE  VARIABLES 

nELZ*nELZ/ViinTH 
DELR=DPLP/WIOTH 
PINIT*PINIT/WinTH 
ZINIT*ZINI  I/WIOTH 
RFINAL=RFINAL/WinTF 
ZFINAL*ZFINAL/WIDTI- 
nn  750  i«i,MOZ 
00  750  J*1,N0R 
RMII, Jl*RP(I,Jl/MinTH 
750  ZMf I, Jl=ZMf I,Jl/WinTH 
no  752  I*1,NBP 
KSPCE*LCOnEf II 
DO  752  K«1,KSPCE 
RB( I,K,11*RB(I,K,11/WI0TH 
Z8(  I,K,ll.ZBn,K,ll/WIOTH 
RRf  I,K,21*RBfI ,K,2I/MIDTH 
752  ZBf  I, K,21»ZB(I,K, 21/WIDTH 
DO  754  I»l,NBP 
KSPCE*LRPTfIl 
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00  75^  K»l,KSPCE 
RBHf!,K,n>RBM(I,K«l  I/WIDTH 
ZBM(I  ,K»n«ZBMt  I,K,1)/WIDTH 
RBM<I,K«  21-RBMI I,K,l) 

754  ZBHntK,2)«ZBM(I«K.l} 

C NON-OIMPNSIONALIZE  BOUNCAPY  CONDITIONS 
00  760  I»l,NBP 
IFIMCCDEH  ).EQ.l»GC  TO  760 
KJ*JCCOF(I » 

KSPCE«LrC0Em 

INDICE=0 

INOEXaO 

DO  764  J*l,KSPCE 
KTINE»KCOnE(T,l) 

IF(KTI«<E.E0.0»KT1MF=1 
no  766  K*1,KTTME 

IFMKCODEf  It  n .GT.O)  .ANO.IINOEX.EQ.On 
.BTIHEI I,K,II=RTIMEI I,K,ll*AINIT  /WIDTH 
GO  70(777,774, 766f 766, 774t766t 777) fKJ 
772  BCGN(T,J,K)«BCCN(  I ,J,K)/PINIT 
GO  TO  766 

774  BCOM  I,J,K)*RCCN(I,J,K)/AINIT 
GO  TO  766 

777  PCON( I,J,K)«BCrN( I ,J,K)/AINIT 
766  CCNTIKUF 
INOEX*l 

IF(KJ.NC,7)G0  TO  764 
KTIPE«KC00E(I,2) 

IF(KTIWE.EQ.O|KTIME*l 
00  780  K«l,KTIMF 

IFC (KCQDEt 1,2) .GT.O).ANO.(INOICE.EQ.O)) 

• 8TIME(I,K,2l»BTIMEn,K,2)*AINIT  /WIDTH 

760  ACOM  I,J,K)«ACON(  I,J,K)/RH0INT 
KTIPE*KCC0E(I,3I 
IF(KTIME.FQ.0)KTIMF*1 
00  782  K»l,KTIME 

IF(  (KCCOEI  1,3)  .GT.O)  .AND.  (INDICE.EQ.OM 
.BTIMEIT,K,3)»BTIMEII ,K,3)*AINIT  /WIDTH 
782  CCGN( I,J,K)*rCCN( I,J,K)/AINIT 
INDICE*! 

764  CONTINUE 
760  CONTINUE 

BEGIN  SOLUTICN  TO  PROBLEM 

FIRST  DETERMINE  TIME  INCREMENT  BY  SCANNING  DATA 
SCAN  THE  Z OIRECTICN  FIRST 
IPASS»l 

TIME*TIME*AINIT  /WIDTH 
DO  7P0  L»2,NTIME 
CALL  eSFRCH(0ELR,0ELZ,2) 

C SCAN  TIME  FOR  GENERAL  POINTS  IN  Z DIRECTION 
DELT4*100. 

DO  80C  K*3,N0Z 
Kl«K-2 

DO  800  J»1,N0R 

IF((NACTVE(K,J).EQ.O).CR«(NACTVE(KI,J).EQ.O))GO  TO  800 
CALL  SCAN(ZM(K,J),ZM(K1,J),UZ(KI,J,I) ,A(KI,J,1), 

•UZ(K, J,l),/(K, J,1)«0ELTA,CMIN) 

800  CONTINUE 
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C SCAN  THE  RADIAL  DIRECTICN 

DO  010  K*1,N0Z 
DO  810  J»3,N0R 
Jl  = J-2 

IF(INACTVECK«Jl).EQ.OI.OR.|NACTVE(Kt Jt.Eb.On  GO  TO  810 
CALL  SCAN(RM(K«JltRM(K»Jl),UR(K»J«ll»A(K,J,ll,IJRf  KtJlf  1), 
.A(K,Jl,l)tOELTA,OMIN) 

810  CONTINUE 

C SCAN  BOUNCaPIES  FOP  TIRE  INCREMENT 

no  P20  I*lfNBP 

KSPce^LBPT  m 

no  P20  K»3,KSPCF 
Kl  = K-2 

1F(  (NBACT(I,Kl,n.FO.OI.OP.(NBACT(I,K,n.FO.OnGO  TO  320 
ANGLF  = ATAN2nZBM(  I,K,1  |-ZPM(TfKl,in  , 

.(RBR(  ItK,l)-PBM(I,Kl,l)n 
P PR  I = C • 

FPP2=SQPT(  nZBMn,K,n-ZBR(I,Kl,in**2»+ 

. ( (RPM(  I,K,  n-RRMI  ItKl,  in**2l  I 
UR1=URB(  T,K1  ,n*CCS(  ANGLE  l+UZB  1 1 ,Kl , 1 ) *S  INI  ANGLE  I 
UR2=URBII,K  ♦l)*rOS(ANGLEI*UZB(I,K  , 11 *S INI  ANGLE  ) 

CALL  SCAN|RPP2tRPRltURltABI  l«Klt  U*UR2«AB(I  ,K»1)  » 

• DELTA  ,OMIN) 

820  CCNTINUF 

WRITF(6,06CO)OELTA,OMIN 
C MULTIPLY  TIHF  BY  CONSTANT 

DELTA=TIMFK*OFLTA 
write (6,e600l0ELTA 

INTFGRATF  UNSTFAOY  EQUATIONS  TO  THE  NEW  TIME  PLANE 
INCREMENT  IN  THE  AXIAL  DIRECTION  FOR  THE  OUTSIDE 
LOOP  AND  TFFN  THE  RADIAL  DIRECTION  FOR  THE  INSIDE  LOOP 
CONSICFR  THE  FIRST  RCW  BCUNDARY 
TIMF*TIME*OFLTA 
C COMPUTE  CCPNER  POINTS 

no  1202  I=1»N8P,2 
on  1202  LI«1,2 
CO  Tn(i;»lO,1220),LI 
1210  CONTINUE 
J=1 

IB0UND=3 

IF(  I.E0.3nR0UNn*6 
K»I-1 

IFIK.LT. 11K*NRP 
M=LRPTIK  ) 

GO  TO  1230 
1220  CONTINUE 
J«LRPT(  I ) 

IROUNO»2 

IF! I.EQ.3IIB0UN0-5 

K=I41 

IF(K.GT.NBPIK=1 

M»1 

1230  CONTINUE 

CALL  COPNPTI I, J, CONST, KAXISfTIME, DELTA, KPRINT,  lOOUNOI 
PRIK,M,2)>PB(I,J,2) 

PRIK,M,2)«PBI I,J,21 
PHOBIK,M,2I»RHOBI I,J,2I 
UPBIK,»»,2I»URB(I,  J,2» 
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UZBfKtM,2)>UZB(ItJt2l 
ABIK,»),2l>/kB(ItJt2l 
PBMfK,M,2)«RBM(I,J,21 
1202  ZBH(K,H,2)>ZBMfItJ,2) 

C COMPUTE  BOUNDARY  PCINT 
on  1200  I«1«NBP 
KSPCE«LBPTm-l 
TB0UND«1 

IFHJCODEt  II.EQ.7l.nR.(JCCDE(  n.E0.9})IB0UN0«4 
00  12C0  K«2tKSPCE 

1200  CALL  eCNPTn,KtCONST,KAXIStTINEtOELTA«KPRINTtIBOUNO) 
C COMPUTE  GENERAL  POINTS 

DO  13C0  I«l,NOZ 
00  1300  J*ltNOR 

1300  CALL  GENCCRn,J,CONST,KAXIStTIME, DELTA, KPRINTI 
C INTERPOLATE  FOR  ODD  BOUNDARY  POINTS 
CALL  CCnPTC3,2) 

C INTERPOLATE  FOR  ODD  MESH  POINTS 

CALL  COOPT(IPASS,2I 
IPASS-2 

C STORE  PROPERTIES  AND  OIMENSIONALIZE 

on  900  I«1,N0Z 
00  900  K«1,N0R 

IFfNACTVEIltKl.EO.OIGO  TO  900 
P(I >K,1)«P(I,K,2) 

PHOn  ,K,  11«RH0(I,K,2I 
UR(I,K,ll«URn,K,2} 

uz(i,K,n«uzn,K,2) 

An,K,ll«A(I,K,2} 

900  CONTIAUF 

00  902  I«l,NBP 
XSPCE-LBPTIII 
DO  902  K»1,KSPCF 
NBACT(I,K,11>N6ACT(I,K,2) 

NB0Cn(I,K,l)>NBn00n,Kf2) 

THETA(I,K,ll«THETAn  ,K,2) 

ITYPEI  I,K, ll«ITYPECI,K,2l 
INUM(I,K,ll«INUMn,K,2} 

IF(NBACT(I,K,2).E0.0)  GO  TO  902 
RRM(I,K,1)«RBM(I,K,21 
ZPMII  ,K,l)*ZBMn,K,2l 
PB(T,K,1I«PBII,K,2) 

PHOen,K,l  t«RH0Bn,K,21 
AB( I,K,1)«AB(I,K,2| 

URB(I,K,1)«URB(I,K,2} 

UZBf  I,K,  n«UZB(IfK,2l 
THETA(I,K,ll»THFTAn,K,2l 
902  CONTINUE 

CALL  ADJUST 

IFIMOCCLfMSKIPl.GT.OIGC  TO  790 
TIMEI-TIMEAWIOTH/AINIT 
C WRITE  OUT  RESULTS  FOR  TIME  PLANE 
WRITE(6,8690)TIME1 
WRITEC6,86A0)L 
WRITEI6, 86101 
WRITE (6, 8620) 

WRITE(6,8220) 

DO  91C  I«1,N0Z 
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DO  <510  K»l,NOR 

IF(NACTVE( ItKI.EO.O)  60  TO  910 

WRITEf6,8630)ItK,PntK«2)tRHOn«K,2)tAn«Kt2lfUR(ItK,2)«UZ(I«K»2) 
•510  CONTINUE 

NRITE(6f 8650ITIHEI 
WRITF(6«S8C0) 

WRITE  (6t86101 
WRITE(6«8620) 

WRITE(6,8220) 
on  <512  I«1.N0Z 
DO  912  K*l,NOR 

IF(NACTVE( ItKI.EO.O)  GO  TO  912 

PMA«RPn  ,K)*WIOTH 

ZMA=ZRn,KI*WinTH 

CALL  EXACT(RMA,ZMA, TIMED 

WF ITE(6t8630) I«K(PPAT»RRATtARATtURRfUZZ 

OOIJ»1,5 

1 FPRCR(J)*C. 

IF(PRAT.NE.0.)ERR0Rm-l.-PUtK,2)/PRAT 
IF(PRAT.NF.0.)ERR0R<2l«l.-RHnC I,Kf2)/RRAT 
IF  I ARAT.NE.0.IEPR0R(3l«l.-AC ItK,2l/ARAT 
I F I UR  R ,NF . C. ) FPROP 14 1 « 1. -UR  1 1 f Kt  21 /URR 
IFIUZZ.NF.C. IFRRnRC5)»l.-UZf ItK,2l/UZZ 
WRITE(6*8632) (FRRCR(J)tJ«lt5) 

912  CONTINUE 

C WRITE  OUT  "OUNCARY  POINTS 
WRITE (6,8650ITIHE1 
WRITF(6.8640)L 
WRITE(6,89C0| 

WPITE(6tfl9C2) 

WRITEI6, 82201 

on  930  I»ltNRP 

KSPCe«LBPT(I I 

no  93C  K*1,KSPCE 

IF(NPACTn,K,2).EQ.O)  GO  TO  930 

PMA*R8M( ItK,2)*WIDTH 

ZMA*Z8M( I,N,2)*MIDTH 

WRITF(6»8904n«K,ZRAtRHAtPB(I«Kt2)tRHOBf  ItKt2)tAB(ItKt2)t 
.URRdtKf  2)  tUZRfIfK«2) 

930  CONTINUE 

WRITE(6,8690ITIMEl 
WRITE(6f 88C0I 
WRITE(6f8220) 

WRITE (6t8610) 

WRITE(6t  8620) 

WRITE(6«8220) 

DO  932  I«lfNBP 
KSPCE«LBPT(I) 

00  932  K«1,KSPCE 

IFINBACTd  ,K,2).EQ.0)  GC  TO  932 

RMA=R8MI ItK, 2)*WIDTH 

ZMA=ZeMI I,K,2)*WIDTH 

CALL  EXACTIRMAtZMA, TIMED 

WRITE(6t 8630)ItKtPRAT«RRAT,ARATtURRfUZZ 

D02J=lt5 

2 FRRCP.CJ)*C. 

IF(PRAT.NE.O.)ERRORm«l.-PB(  IfK,2)/PRAT 
IF(PRAT.NE.O.)ERROR<2)«L.-RHOR(I«Kt2)/RRAT 
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IF(ARAT,NE.0.IERR0R(3l«l.-*8II,Kt2l/ARAT 
IFfURR.NE.O.)ERROR(4l«l.-URBn  *K»2)/URR 
IF(t'ZZ.NE.0,)FRR0Rt5)-l,-UZBf  ltK«21/UZZ 
WRITE(6,8632MERRQP(JI*J«1,5I 
932  CCNTINUE 
790  CCNTINUF 
GO  TO  100 

8000  FORMAT(?f  I3«2X)«6E10.0*/,E10.0tIlf4XfI2} 

8001  F0Rf«AT(A2l 

8002  FOPRATdCC  !2t4XI  I 

8003  FORMAT(1HO,»KAXIS  * • , I2t4X,*NC0DE  « * , I2t 4X , • KPRI NT  » *,I2,/ 
1*  NBP  * »,  !2.4X,'NTIMF  = •,I3#4X,*NBT  » • , 1 2, 4X, • NPLOT  « »,I2) 

8020  FOPMATI7EIC.0I 

8021  F0RPA^(5E10.0I 

8022  F0PMATC6E10,0,IU 

8200  F0RHAT(21X,*MC0U  43i  T wr-0 IMFNSI ON AL  UNSTEADY  FLOW  ANALYSIS*/) 
8220  FORPATdH  ,/) 

8230  F0R^'AT(lHnf2(9HNUPBFR  CF  , 5X  ) , 12HR-INCREMENTS,  3X* 
.12HZ-INCREMENTS«3Xt9HINTTIAL  Rt6XtllHMAXIMUN  RAD* 

.4X,9HINITIAL  Z«6X«7HFINAL  Z) 

8232  FORMATdH  ,1  OHBOUNO.PTS  . f 4Xt  1 IHT  IHE  PLANES»3X» 

.6I6F  FEET  «9XM 

8240  FnPPATdH0,20X,28HlNITIAL  REFERENCE  CONDITIONS) 

8242  FORHATdH  .8HPRESSURE.7X,7HDENSITY,8X,dHS0UND  SPEE0.4X, 
.lOHREF.LENGTH.SXaOHTIME  PLANE  I 

8244  FOPPATdH  ,8HL8/FT**2 1 7X,  11HSLUGS/FT**3,4X,6HFT/SEC,  9X, 

.4HFEET  ,9Xf8HCCNSTANT) 

8245  FOPMATdH  ,8HNT/M*P2  . 7X,  1 IHKG/M**3  ,4X,6HM/SEC  ,9X, 
.6HMETERS ,9X,8HC0NSTANT I 

8250  F0RNATUHl,20X,»80lNnARY  POINT  COORDINATES*) 

8252  FOPMATdH  t3(4HSECTt3X«6HRA0IALt9Xt5HAXIAL>  lOX)) 

8254  FOPMATdH  ,7X,3(4HFEET  ,9X,4HFEET  »16X)) 

8255  FORMATdH  «7X,  3<  6HMETERSf  9X«6HMETERS  1 16X)  ) 

8256  FOPMATdH  ,15HB0UNCARY  NUMBER,  13) 

8258  FORMAT!* IBCUNPARY  POINT  CCOROINATES  AND  INITIAL  PROPERTIES*) 
8260  F0RMATdHl,10X,23HMESH  POINT  COORDINATES  , 

.22HAN0  INITIAL  PROPERTIES) 

8262  FORMAT (5H0MESH,3X,6HR ADI ALf9X,5HAXIAL,lDX,8HPRESSUREf 

.7X,7H0ENSITV,8X,11HS0UND  SPEED ,4X, lOHRAOIAL  VEL,5X,9HAXI  L VEL) 
8264  FORMAT!*  NO*  ,5X,2 !4HCCCR , IIXI , 5! 5HRAT 10, lOX 1 1 
8270  FORMATdH  ,2!  I4,1CX)  ,6!F9«6,6X)  ) 

82B0  F0RMAT!1H  ,7!F9.4,6X)) 

8290  FORMAT!lH  ,3 ! I 3,2X,F9.4 ,6X,F9.4, 6X ) ) 

8300  FORMAT!lH  ,I2,1H, , I2,7!F14.9, IX) ) 

8400  F0PMAT!1HI,15X,19HB0UN0ARY  CONDITIONS) 

8410  FORMATdH  ,10HBOUN0  SFG  ,5X,6HTIME  «,Fll.8,4H  SFC) 


8412  FOPMATdH  ,10HB0UN0  SEG  ,5X,15HTINE  IS  INDEPNT)  i 

8420  F0PMAT!IX,I3,*  TO* , I3,6X, *0ISTANCE  RAT  10* ,6X, 2A4)  | 

8422  F0RMAT!37X,2A4) 

8424  FORMATdH  ,//) 

8425  FORMATdH  ,20X ,F7.4, 10X,F  10,6 ) 

8426  FOPMATdH  ,20X,7HIKDEPNT,  10X,F10.6)  } 

8428  FORMAT!*  BCUNDARY  CONOITICN  IS  A FUNCTION  AT  BOUNDARY* , 1 3)  J 

8600  FORMATdH  ,10E10.3) 

8610  FORMAT! IHO,IOHMESH  POINT, 10X,8HPRESSURE,7X,7HDENSITY,8Xv  , 

.IIHSOUND  SPEED, 4X,9HRAD.  VEL . , 6X, lOHAXI AL  VEL.)  ' 

8620  FORMATdH  ,20X ,5! 5HPAT IC, lOX)  ) 1 

8630  FORMATdH  ,4X,  13,  IH,  , 1 3,4X,5(  1X,F  14.  9)  ) i 
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R632  FnUMATClH  ,15HPER  CENT  ERROR  f511XtF14.9M 
R640  FOPMATUH  ,12HTIME  PLANE  »,I4I 
R650  FORMATCIHI.THTIME  « tFl2.9t4H  SECI 
8800  FORFATflH  • I 5X » 14HEXACT  SOLUTION! 

8900  FORMATflHO«7X,l2HBOUNO.RAOIUSfSXtllHBOUND.AXIALf 4X,8HPRESSURE»7X 
.7HDENSITY,8X>11HSCUND  SPEE0t4Xt9HRAD.  VEL.fSX# 

.lOHAXIAL  VEL.) 

890?  FORPATdH  «38X  t5(  SHRATIC*  lOXI  I 
R904  FORPATCIH  , I 2 » IH, « I2« 7( F 14.9, I XI! 

END 
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SDBROUTINF  ABOTFnBtFTAfKVALUEl 
C THF  PURPOSE  OF  THIS  SUBROUTINE  IS  TO  COMPUTF  THE 

C DERIVATIVES  FOR  THE  ABNORMAL  GENF.UL  POINT 

COMMON/BUFFFR/OURR(l5IfOURZf 15I*0UZR(15I,DUZZC15I,DAR(15I#DAZ(15> 
COMMON/OOMAIN/RPn(151,ZPOIl5I.PO(l5l,ADCl5l,RHOOn5I.URO(15»  « 
.UZ0(15I,LSUB(15» 

DIMENSION  OIST(l5)tPURR(15itPUZRf  ISItPARdS) 
r.  VERTICAL  INTERSECTION 
GO  TO(lOO,TOOI,IB 
100  GO  Trmi0,l30,ll0,n0l,KVALUE 
1 10  CONTINUE 

C COMPUTF  R PRIME  DERIVATIVE  FOR  lt4*7 
DIST|7I»0. 

PTST<4)*(RPDI4I-RPO(7n*COSIETAd(ZPD(4)-ZPD(7)  )*SIN(ETA) 
niSTm«(RPnm-RPnC7II*COS(FTA|  + IZPD(  n-ZPDC7)}TSINf  ETA) 

CALL  FINITF(l,4,7,URn,niST.PURRm  .PURRC4IfPURR(7M 
CALL  FINITF(l,4,7,UZn,0IST,PUZRf ll,PUZR(4),PUZR(7)) 

CALL  FINITE!  1,4,7,  An,OIST,PARm,PAR  1 4»  , PAR  (7)  ) 

C COMPUTE  R DERIVATIVES 
DO  112  K»2,3 
Kl-K+3 
K2*K4-6 

CALL  LAGPNP(K,KI,K2,URD,RPO,OURRIK),OURR(K1» ,DURRIK2) ) 

CALL  LAGRNP(K,Kl,K2,UZD,RPO,OUZRIKI,nuZP(Kl),DUZR(F2M 
112  CALL  LAGRNE(K,Kl,K2*An,RPD,OARfK),DAR(Kl) ,DAP(K2)) 

C COMPUTE  AXIAL  DERIVATIVES 

DO  114  K»l,7,3 
Kl-K^l 
K2*K4>2 

CALL  LAGRNF(K,Kl,K2»URD,ZPD,OURZlK|,DURZfKl),OURZ(K2» ) 

CALL  LAGRNE(K,Kl,K2fUZO,ZPO,OUZZ(KI,DUZZ(Kn,DUZZ(K2n 
114  CALL  LAGRNE(K,Kl,K2«An,ZPO,DAZfK),DAZCKll,DAZ(K2)l 
C COMPUTE  R DERIVATIVES  AT  1,4,7 

on  116  K»l,7,3 

DURR  I K I * ( PURR ( K I -OUR  Z ( K ) *S IN  f ET Al) /COS ( ET A ) 

DUZP IK|«(PU7R<KI-DUZ7(K|RSINIETA» )/COS(ETA» 

116  DAR|K|»(PAR(KI-OAZ(K|*SINf ETAII/COSIFTAl 
RETURN 

C COMPUTF  R PRIME  DERIVATIVE  FOR  3,6,9 
130  DIST(3I*0. 

DIST(6I=CPPO(6)-RPn(3n*COSCETAI  + IZPn(6»-ZPD(3))*SINfETA) 
0IST(9)*IPPDI9)-RP0I3nRC0SCETA)  + (ZPDI9»-ZP0I3n*SIN(ETAI 
CALL  F INITF (3,6,9, URD,DIST, PURR! 3),PURRI6» , PURR (9)1 
CALL  FINITE{3,6,9,UZD,OIST,OUZRC3),PUZR(6)  ,PUZR(9n 
CALL  FINITE(3,6,9,An,niST,PARI3l,PAR (6»,PAR(9»» 
r COMPUTE  R DERIVATIVES 

00  132  K*l,2 
K1«K*3 
K2»K*6 

CALL  F INITE (K, K1,K2,URO,RPO, DURR (K), DURR (Kl), DURR (K2) ) 

CALL  FINITF(K,K1,K2,U7.0,RP0,0UZR(K),DUZR(KII  ,0UZR(K2|  J 
132  CALL  FINITF(K,Kl,K2,A0,RPn,DAR(Kl,nAR(Kl),DAR(K2l) 

C COMPUTE  AXIAL  DERIVATIVES 

on  134  K«l,7,3 
K1«K4^1 
K2»K*2 

CALL  LAGRNE(K,Kl,K2,URD,ZPO,nURZ(K),DURZ(KU,DURZ(K2n 
CALL  LAGRNF(K,Kl,K2,UZn,ZPD,DUZZ(Kl,nUZZ(Kl},DUZZ(K2) ) 
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134  CALL  LAGRNF(K,Kl,K2,AD,ZPn,OAZ<K),OA2(KU,nAZ(K2M 
r rOMPlJTF  P DERIVATIVES  AT  3,6,9 
on  136  K*3,P,3 

nURRIKI«(PURR(K)-DUR2(Kl*SIN!ETA»l/COS(ETAl 
DUZR  (KI*(PljZRf  K)-DUZZIK)*SINfFTA»l/COSCETAI 
136  nAZ(K)*IPAR(K)-nAZ(K)*SlNCETAn/COSIETA| 

RETURN 

C HORIZONTAL  INTERSFCTIPN 
300  on  Tn(3lO,3l0,330,330),KVALUE 
r COMPUTE  R PRIME  DERIVATIVE  1,2,3 

310  DISTI 1 )=0. 

OIST  (?)=(RPn(2»-RPn(  in*CnS(ETAl»(ZPni2)-ZPDI  m*SIN(ETAl 
DISTC3»*(RPD(  31-RPni  in*C0SIETA»  + (ZPDC3)-ZPD(  in*SIN(ETA) 
CALL  FTNITF(l,2,3,Uon,niST,PURRm  ,PUPR(2)  ,PURRI  311 
CALL  FINITF(l,2,3,lJ?n,niST,PUZRn  1,PUZP(2I,PIJZP(3I) 

CALL  FINITFI 1 ,2,3,An,niST,PAP(l J,PAP (2) ,PAR(3»1 
C COMPUTE  R DFPIVATIVFS  WITH  LAGRANGE 
on  312  K*1  ,3 
Kl*K4-3 
K?*K+6 

CALL  LAGRNF(K,Kl,K?,URn,RPn,nURRlK),nURRIKl 1 ,0URR(K2ll 
CALL  LAGRNF(K,Kl,K2,UZn,PPn,nUZRIKl,nUZR(Kl  » .OUZP.IKZI) 

312  CALL  LAGRNF(K,Kl,K2,An,RPn,0ARIK|,nAR(Kn,DAR(K2l) 

C COMOUTE  AXIAL  OFPIVATIVES 

no  314  K*4,7,3 
Kl*K+l 
K2*K4-2 

CALL  LAGRNF(K,Kl,K2,URn,ZPn,nURZ(Kl,DUR7(Kl) ,DURZIK2) 1 
CALL  LAGRNF(K,Kl,K2,'IZ0,ZPn,DUZZCKI,DUZZIKl)  ,0UZZ(K2I) 

314  CALL  LAGRNE(K,Kl,K2,AO,ZPn,OAZ(KI,OAZlKn,DAZ(K2)) 

C COMPUTE  AXIAL  DERIVATIVES  AT  1,2,3 

DO  316  K»l,3 

0UR7(Kl=C»UPP(Kl-0URP(Kl*CnSIETAll/SlN(ETA) 
nuZZlK l = IPUZRIK)-nuZR(Kl*CnS(ETAI  l/SIN(ETA) 

316  nAZ(KI*(PAR(Kl-DAR(K»*CnSIETAI l/SINf ETAl 
RETURN 

C.  COMPUTF  R prime  DERIVATIVE  AT  7,8,9 

330  nTSTC9)=0. 

DTSTI8l*IPPni 8»-RPni9l l♦CaS(ETAI♦^ZPD<0l-ZPnI9^ )*SIN(ETA) 
0ISTI71=(PPn<7)-RorM9n*CnS(ETAl*(ZPD(7)-ZPDI9n*STN(ETAI 
CALL  FINITF(7,fl,9,UR0,0IST,PURRl7l,PUPRI81,PURRI9)) 

CALL  EINITF(7,8,9,UZD,0IST,PUZRI71 ,PUZRIR) ,PUZR(9J I 
CALL  FINITri7,8,9,AP,niST,PARI7),PAR 18), PARI 9)1 
C.  COMPUTE  R DERIVATIVES  WITH  LAGRANGE 
DO  332  K*l,3 
Kl=K+3 
K2»K+6 

CALL  LAGP.NF(K,Kl,K2fUPD,RP0,nURR(Kl,0URR(Xl  I ,0URR(K2n 
CALL  LAGPNF<K,Kl,K2,UZn,RPO,OUZRIK),OUZR(Kl  1 ,DUZP.(K2)  1 
332  CALL  LAGRNFlK,Kl,K2,An,RPn,DARIKl  ,DARIKl),0ARlK2n 
C COMPUTE  AXIAL  DERIVATIVES 

no  334  K=l,4,3 
K1*K*1 
K2*K+2 

CALL  LAGRNE(K,Kl,K2,URn,ZPn,OURZU|,nUR7Cta)  ,0URZIK2M 
CALL  LAGRNE(K,Kl,K2,UZn,ZPn,0UZ7IKl,DUZZlKl) ,nUZZ(K2) ) 

334  CALL  LAGRNE(K,Kl,K2,AO,ZPn,nAZ(K),OAZfKl),OAZ(K2n 
C COMPUTE  AXIAl  DERIVATIVES  AT  7,8,9 
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DO  336  K-7,9 

DUR I <k  |5(  PURR  f K I -DURR  (K  l«CO$'l  ft  A I f/S  INI  ETA  I 
OUZZiKI-IPUZRf  K)-OUZRIKI*COS(ETAn/STNIETAI 
336  daziki-ipariki-oarikipcoSieTaD/sinieta) 

RFTURN 

FNO 
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SlIRRnUTINF  ABGFN(RNEWtZNEW«IBtKVALUFtM»FTA) 

COMMON  PM(25«29),ZHI?5t25},P(25f25»2}*AI  25t 25f 2) tPHOI 25« 25»2 1 1 
.UP(25t25»2)fUZ(25f25t?l«N0RtN0Z«RRM{10«30,2} tZBH(10t30t2lt 
.RB(in«21t2l tZBf l0t2l,2),THFTA(10,30t2) tPBf 10«30t 2) t A6( 10»30t 2} f 
.RHOR(10f30»2)fljP.R(10,30«2ltUZR(10f30t2)tNACTVE(25t25)fNODOI25«25l» 
• NR ACT ( 10,30,2  )»NRnnD(l0*30«2)«ITYPE(  10(30,2) « INIIMY 10* 30*2)  t 
.lPPT(10),!AXESf 10,30) 

COMMON/GFNPT/IJ, IK , 1 1 , 1 2 , J I , j2,NGENf 9) , XYf 3 ) 

COMMON/DAT A/ I TEST, NBPf WIDTH, angle 

CnMMnN/OnMAlN/RPO(l'5),ZPOn5),PO(l5),AO(  I*? ) ,RHOO  I 15  I , UROf  15)  , 

.ozni 15),LSUB(15) 

COMMON /XCHNG/ISTRF,KSTRE,IL,  I M, ID, 101, 102 
C THE  PURPOSE  OE  THIS  SUBROUTINE  IS  TO  ADJUST  THE 

G'^NERAL  POINT  OOMAIN  POINTS  FOR  AN  ABNORMAL  GENERAL 

POINT 

SET  ROW  ANO  COLUMN  INDICES  OF  MISSING  POINT 
GO  TO(100,110,120,130) (KVALUF 
100  TR0W*I1 
iroi.j? 

GO  TO  140 
no  IR0W*I2 
iroL»j2 
GO  TO  140 
120  IR0W*I1 

icni*ji 

GO  TO  140 
no  TR0W=I2 
TC0L*J1 

C DETERMINE  NFARFST  ROUNOAPY  POINT 

140  on  200  1*1, MBP 
KSPCF=LBPT( I ) 

TSTPF*T 

C ASSUME  NEARFST  ROUNOAPY  POINT  IS  4 VERTICAL  INTERSECTION 
K.NUM*irnL 
KOUNT«l 
2DR  CONTINUE 

DP  210  K»1,KSPCF 
KSTPE*K 

KCMPR*TNUM(I ,K,M) 
lEIKNUM.NE.KCMPPlGO  TO  210 

r CHECK  INTERSECTION  TYPE,  1»VFRTICAL,2*H0R  IZONTAI. 

KTYPE* ITYPFIT ,K,M) 

IF(KTYPE.NE.KOUNT)GO  TO  210 
C CHECK  POSITION  OF  ROUNOAPY  POINT 

GO  TO(300,400),KOUNT 
C VERTICAL  INTERSECTION 

300  GO  T0(310,320,330,340),KVALUE 
310  TP(ZP0(2).GT.ZBM(I,K,M) )G0  TO  220 
GO  TO  210 

320  IFIZPni2).LT.ZRMn,K,M)  )G0  TO  220 
GO  TO  210 

330  IE(ZPf)(8).GT.ZRM(I,K,M)  )G0  TO  220 
GO  TO  210 

340  IFIZPDIBI.LT.ZRMI  I,K,H)  )G0  TO  220 
GO  TO  210 

r HORIZONTAL  INTERSECTION 

400  GO  T0I410, 420, 430,440) ,KVALUE 
410  IF(PP0(4).LT.RBM(I,K,M) )G0  TO  220 
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r,0  TO  210 

t*20  IF(RP0«6I.LT.RPM(  I.KtHlIGO  tO  220 
GO  TO  210 

430  TFfRPn(4l.GT,RBMf  I,K,MI1G0  TO  220 
GO  TO  210 

440  IF(RPn(61.GT.RRMM,K,Pi  IGO  TO  220 
210  CONTINUF 

GO  TO(230f200l»KOUNT 
C ASSOMF  H0RT2ONTAL  INTERSECTION 
230  KOUNT-2 

KNUN*TROW 

GO  TO  ?oe 

200  CONTINUE 

WPlTE(6f  ROOOn  J,  IK 
CALL  EXIT 

C CHANGE  POUNOAPY  «*oiMTS  INTO  DOMAIN  POINTS 
220  FTA= THETA! ISTRE,KSTPEtM) 

GO  T0(600#700l fKOUNT 
C VERTICAL  INTERSECTION  FIRST 
400  IP*l 

I SUB(n«7 
LSUBI2I-4 
LSUfl(3J«l 
LS(IB(4I*fl 
LSUB(5I*5 
LSUB(6)*2 
LSUB(7)*P 
LSUBIB)«6 
LSUB(<>I*3 

GO  TO(6l0f620.630f640»,KVALUF 
C POINT  I DOMAIN  REPLACEMENT 

610  IL»KSTPE-1 
IM*KSTRE-2 
ID*l 
mi«4 
102*7 

CALL  REPLCTIM) 

RETURN 

C POINT  3 DOMAIN  REPLACEMENT 

620  Il*KSTPE4l 
IM*KSTRFt2 
ID«3 
101*6 
ID2*9 

CALL  REPLCTIM) 

RETURN 

C POINT  7 DOMAIN  REPLACEMENT 

630  Il-KSTRF+1 
IM-KSTRE+2 
10*7 
101*4 
102*1 

CALL  REPLCTIM) 

RETURN 

C POINT  9 DOMAIN  REPLACEMENT 

640  U*KSTRF-1 
IM*KSTRE“2 
ID*9 
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c 

700 


C 

710 


r 

720 


c 

730 


r. 

740 


9000 


T01«6 

I0'*»3 

CALL  RFPLCT(M) 

RFTURN 

HORIZONTAL  INTERSFCTICN 
TP=2 

LSUR(l)*7 
LSUR(2»*fl 
LSUM3)*9 
LStJP(4)=A 
LSim(5)  = *5 
LSI)B(6I=6 
LSUM7)*1 
LSUB(9)*2 
l.SUB(9»  = 3 

on  101710,720,730,740)  .KVALIJF 
POINT  I DOMAIN  PFPLACFMFNT 
IL^KSTRF*! 

IM=KSTPF4-? 

10=1 
101*2 
102  = 3 

CALL  RFPLCTfM) 

PFTURN 

POINT  3 DOMAIN  RFPLAfFMFNT 
IL*KSTPF-l 
IM=KSTRF-2 
10=9 
101  = 2 
102=1 

CALL  FFPLCTIM) 

RETURN 

POINT  7 DOMAIN  replacement 

II  »KSTRE-l 

IM=KSTRF-2 

10=7 

101=9 

102=9 

CALL  RPPLCTCM) 

RETURN 

point  9 DOMAIN  REPLACEMENT 

IL=KSTRF*1 

IM=KSTRE*2 

10=9 

101  = 8 

102=7 

PFTURN 

FORMATIIH  ,34HFPR0R  IN  SUBROUTINE  ABSEN  AT  POINT, 
T3,IH, ,12) 

FMO 
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SUBROUTINE  ACTVTY(KVALUE,NOACTl 
rnMMON/riENPT/IJ,lK»rif  l2t;ilVJ>tN6EN(9|«XV(3» 

C THE  PURPOSE  OF  THIS  SUBROUTINE  IS  TO  CMFCK  DOMAIN 
r POINT  ACTIVITY  AND  SPECIFY  WHICH  POINT  IS  INACTIVE 
C AND  THE  TYPE  OF  INTERSECTION 
NOACT-0 

C DETERMINE  NUMBER  OF  INACTIVE  POINTS 
DO  100  I«l»9 

IF (NGFN( I ) .EO.OINOACT«NOACT4l 
100  CONTINUE 

C S»-T  KVALUF, ASSUME  IT  IS  POINT  I 

RVALUE*! 

IF(NGENni.E0.0!KVALUE*2 

IFINGPN(7!.F0.0»KVALUF«3 

IF(NGEN(9).FO.O)KVALUE*4 

RETURN 

ENO 


SUBROUTINE  ADJUST 

COMMON  RM(25«25)fZM(2S,25),PI25t25t2ltAI25t25t2)tRH0(25»25f2)« 
.UR(25t25,2l«UZ(2S«25,2l«NCRtNOZtRBMI  10,30* 2) »ZBHf 10,30,2), 

.P8( 10,21,2),ZB(10,2l,2),THETAtlO,30,2),PBf 10,30,2 ),ABf 10,30,2), 
•RHOe(10,30,2)*URBI 10,30,2),UZBI10,30,2) ,NACTVE(25,2S) ,NOOO(25,25) , 
.NRACT(10,30,2),NRQ0DU0,30,2),ITYPE(10,30,2),INUM(10,30,2), 
1LBPT(1C),IAXFS(10,30) 

COMMON/BOUND/JCQOEC10),KCQOEf 10,3),LCODEI  10) ,MC0DEI10), 
.BTIME(10,20,3)  ,BCQM10,20,20),BSPCEf  10,20),AC0NI  10,20,20), 

.CCOM  10,20,20) 

COMMON/DATA/ITEST,NBP, WIDTH, ANGLE 
C THIS  SUBROUTINE  ADJUSTS  BCUNDARY  SPACING 
DO  232  I«1,NBP 
KSPCE«LCC0F(I) 

TOTAL»SORTfnRBn,l,l)-Ren,KSPCE,l))*P2)4- 
. ((Zei I,1,1)-ZB( I,KSPCE,1) )**2)) 

XI«ATAN2((ZB(I  ,KSPCE,l)-ZB(I,l,l)),IRB(I,KSPCE,l)-RBn,l,l)) ) 
BSPCE(I,1)*0. 

DO  20A  J«2,KSPCE 

FTA*ATAN2nZR(I,J,l)-ZB(I,l,l)),fRBn,J,l)-RBf  1,1,1))) 

BSPCEII, J)*TOTAL*COS(ETA-XI) 

204  CONTINUE 
202  CONTINUE 
RETURN 
END 
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SUBROUTINE  BCONPCIBOUNCtTIMCgOELTAiKAXISt CONSTi 
.NCOUNT.KPRINTf I,J» 

C THIS  POUTINE  INTEGRATES  TEE  BOUNDARY  POINT  COMPATIBILITY 

C EQUATIONS 

REAL  KAXIS 

COMMON  PMI  25*251 tZMI  25, 25) «P(25t 25,2) »A(25»25,2)  tRHO(  25(25,2) * 

.UR(  25*25,2),UZ(25y 25,2),NOR,NOZ,RSNt 10,30,2)  ,ZBM(  10,30,2), 
.RBnO,21,2),ZBnO,21,2),TEETA(10,30,2),PB(10,30,2),ASf  10,30,2), 
.PHOei 10,30,2),URB( 10, 30,2), UZ6 CIO, 30,2), NACTVEf 25,25 ),NODO( 25, 25), 
.NRACT(10,30,2),NB00na0,30,2),  ITYPEC  10,30,2)  , INUMI  10,30,2)  , 

.LBPTI 10)  ,IAXES(10,30) 

CnMMON/STATE/PINIT,RHOINT,AINIT 

C0MMCN7EXT/URR,UZZ,Y,RRAT,ARAT 

COMPCN/PARTI Al/PURR(5),PURZ(5) ,PUZR(5),PUZZt5),PARI5),PAZl5) 
C0MM0K/PLANE/URG(5),UZG(5),PG(5),RH0G15),RG(5),ZG(5), AG(5), 
.PNEW,RHNEN,ANEW,URNEW,UZNFW,RAP,ZAP,RNEW,ZNEW 
COMPCN/nATA/ITEST,NflP, WIDTH, ANGLE 

COMMON/SETUP/RASI4),RACI4),R<5),OELP,OFLRH,DELUR,DELUZ,S(5) 

COERCE /BRUNO/ JCODEI 10  ),KCCOE  no,  3 »,LCnOF(  10 ) , MCODF I 10 ) , 

. BT I ME  ( 10,20,3)  ,BCOM  10, 20,20)  ,6SPCE(  10, 20  ),ACON(  10,20,20) , 

.CCOM  10,20,20) 

DIMENSION  0IST(3),FC3) 

DATA  KK/1/ 

PI*3. 1A15926535897S3 
T0L*0. 0000001 
TOL-O.OCOl 

CALL  BEGINII BOUND,  DELTA,KAX IS, CONST) 

POP.RNPW 

ZDR*ZK«W 

IF(  JCC0E(n.E0,3)KK*l 
GO  TOUOOdlO)  ,KK 

ino  KK»2 

IF(MCCOFm.EO.O)  GO  TO  200 
RORA-RORPWIDTH 
ZORA*ZOR  ♦WIDTH 
TIME1*TTME^WI0TH/AINIT 
CALI  EXACTIRORA.ZORA, TIMED 

IFdJCOOEI  I).NF,2).AN0,UC0nE(  I).NE.7))G0  TO  110 
X*-URR^S  INI ANGLE )*UZZ*CCSf ANGLE) 

IFIJCCOEII  ).NE.7)GC  TO  110 
W=UPR*COS(ANGLEM>UZZ*SIN(  ANGLE) 

U»RPAT 

RORDPflMII  ,J-1,1)PWI0TH 
2nRl-ZRM(I,J-l,l)PWlOTH 
R0R2»RBMCI,J>1,1) ♦WIDTH 
Z0R2*Z8M(I ,J+1,1)^WI0TH 
OISTI 1)=0. 

DIST(2)*(RPMII,J,1)-RBM( I,J-1, 1))^C0S(ANGLE)+ 

. (ZBHI  I,J,l)-ZRM(  I,  J>1,1))^SIN( ANGLE) 
DIST(3)=(R0M(I,J+l,l)-RBMn,J-l,l))^COS(ANGLE)  + 

. (ZBM(I,J+1,1  )-ZBM(  I,J-1,1  ) )^S  INI  ANGLE.) 

E(2)»W 

CALL  EXACT(RORI,ZOR1, TIMED 
FI  D*URR*CCS(  ANGLE  )+UZZ^SIN(ANGLE) 

CALL  EXACTIROR2,ZOR2, TIMED 

EI3)  = URR  ♦CCS  I ANGLE  H-UZZ^S  INI  ANGLE) 

CALL  EINITEI1,2,3,F,0IS7,ART,0WR,ART) 

GO  TO  110 


76 


200  CONTINUE  

KV»I 

NK*JCCOEIKVI 

NTINE«KCQOE(KV,ll 

KSPCE»LCOOEfKVI 

KL»J 

CALL  FINOIKVtKLtNK,NTIMF,KS(>CEtPOfttZORtYtMtDZZf 
.OWR.ART,TINEI 

IF((NK.EQ.2).0R.(NK.EQ.7I  IX«Y 
1 10  CONTINUE 

C INTEGRATE  COMPATIBILITY  EQUATIONS 

NK«JCOnE(I» 

GO  TOl 300, aiOt 300, 320*3 1C«330»340) ,NK 
300  XA=SQUNOCRHNEW,YI 

DELURl=-.5*RHNEM*XA*(2.*URGI5I-UR6m-URGIJ>  )-.5* 
.(RASI  n-RASI3)  l*0ELUZ4R(3l-Rm 
0EHJRl»DELURl/(.5R|2.*RHNEM*XA4RACm-RACI3»  1 1 
URNfWl*URGC5)4nELURl 
IFIROP.EG.O.I  GO  TO  302 
PART*URNEH/ROR 
GO  TO  304 
302  PART*PURR(5) 

304  CONTINUE 

0ELUZl«-2.*IY-PG(  5||*CCNST-.5*IRACm4RACC3)4 

• 2.*RAC(4n*0ELURl-RHNEU*XA*XA*KAXIS*PART* 
.DELTA-.5*XA*RHNEW*IURGC3I-URGI1|42.*IUZGI4»- 
.UZG(5n)42.*R(51«f  Rm4Rf3)42.*RI4M 

OELUZ  l*DELUZl/(. 5*1-2. ♦RHNEH*XA4RASm4RASC  314 

• 2.*PAS(4in 

0ELPHl-CY-PGI5II*C0NST-RI5»*IXA*XA/I A6C5)*AGI5)l-l.I 
DELRH1«DELRH1/<XA*XA| 

RMNEW1«0ELRH14RHCG(SI 
UZNEW1xUZG(5|40ELUZ1 
IFIITEST.NE.il  GO  TO  4CC 
ITEST«2 
GO  TO  410 
400  CONTINUE 
RATIO-. 01 

IFIABS(URNEWI.GT.O.IRATIO>ABSf lURNEWl-URNEHI/URNEWI 
IFIRATI0.GT.TOLIGOT0410 

IF(AB<IUZNEW).GT.O.IRATIO-ABSf fUZNEHl-UZNEHl/UZNEW) 
IFIRATI0.GT.TOLIGOTO410 

IFIABSKRHNEWI-RHNENI/RFNEMI.GT.O.OOOOOOIIGO  TO  410 

NC0UNT*2 

KK-1 

410  URNEW*URNEW1 
UZNEW-UZNEMl 
RHNEWxRHNEWl 
PNEW*Y 

ANEW-SOUNOIRHNEWtPNEVl) 

IF(KPRINT.GT.O)  CALL  PRINT 
RETURN 

310  XAxSOUNn(RFNEW,PNENI 

IFIPOR.EC.O.I  GO  TO  312 
PART-LRNEN/ROR 
GO  TO  314 
312  PART*PUPRI5) 

314  CONTINUE 
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PELPl— ,25*(RACm^RACI3l+2.*RACC4ll*0ELUR-.5*RHNFW* 
.XA*X/\*KftXIS*PART*0FLTA-.25*RHNEW*XA*IURGI3»- 
.URGm«2.*(UZG(4)>UZG(5n)-.25«(X-UZ6f5n*(-2.* 

.RHNEW*XA«RASf  1)»RAS(3K2.*RASI4I  )^Rf  5I-.5*(R(  1 14> 

.R«3)^2.*R(4» I 
DELPI»DEIP1/C0NST 
PNEWl»PG(5)^0ELPl 
XA«SaL'Nn(RHNEWtPNEWn 

0FLURl-»-.5*RHNEW*XA*(2.*URGC5l-URGm-URG(3||- 
..5*(X-UZG(5»  )*(RAS(n-RAS(3IUR(3}>R(U 
DELURl>OFLURl/(.5*f2.*RHNEW*XA>RAC(ll-RAC(3) ) I 
URNEWl«llRG(5)+nFLURl 
PAPT*URNE«1/R0R 
IFCPOP.EC.0.IPART*PURR(5l 

OELPHl»A.*OELPl*CrNST*.5*OFLURl*CRACm«-RAC(3U 
,2.*PACI4I)*RHMEW*XA*XA*KAXIS*PART*0ELTA4.5* 
.RHNFH*XA*(UPG(3I-URG(1  n*RHNEW*XA*IUZGI4l-UZG«5»  >♦ 

..5»(X-U7G{51  )*C-2.*RHNEM*XA*RASC  II+RASC3U 
.2,*PASlAn- 

.2.*C(  XA/AGC5M**2»*R(5|4(RC1|>R|3|*2.*R(4)1 
0ELPH1*0FLRH1/(2.*XA*XA) 

PHNFWl*DELRHl4RH0G(5l 
IFdTEST.NE.n  GO  TO  SCO 
ITEST*2 
GO  TP  510 
500  CCNTINUE 
RATIO*. 01 

IF<ABSfUPNFW»,GT.0.1RATir*ABSI f URNEWl-URNEH I /URNEW I 

IFIPATIO.GT.TOLIGOTOSIO 

IF(ARSnPN£Wl-PNEWI/PNEH),GT.TCLIGOT05lO 

IF(  ABSnPHNEWl-RHNEWI/RHNEWl.GT.TOllGOTOSlO 

NCnUNT*2 

KK»1 

510  UPNFW*URNEW1 
UZNFW*X 
PNEW»FNEH1 
RHNEW*RHNFWl 
ANEW*SCUNn(RHNEW,PNEM) 

IF(KPPINT.GT.OICALL  PRINT 
RETURN 

320  CONTI NUF 
330  CCNTINUE 
340  XA*SCUNO(RHNEWfPNEHI 

IFIROR.FO.O. IGO  TO  342 
PART*W/RCP 
GO  TO  344 
342  PART*PUnR(5l 
344  continue 

DEL  PI*-. 5* (RHNEW*XA*XA*IKAXIS*PART4DMR)I* 
.0FLTA-R(4I-.5*RACl4l*fW-URGI5) »♦ 

..5*PHNeW*X4*(UZGI5I-UZG(4n- 
. . 5* l-RHNEW*XA+RASI 4) J *IX-UZGC  5 1 1 
DELPl-OPLPl/CONST 
PNEWl*PG(5»40FLPl 
ANEWl*SOUND(RHNFHf  PNEVm 

0ELRHl*(2.4DELPl*C0NST+.254|RACf l)4RACC3»42.4RACC4» l*( W-URGI5»I4 
..25*PHNEW*ANFWl*(URGI3)-URGm^2.*IUZGI4)-UZG(5n»4 
..25*C-2.*RHNEW*ANEWl4RASm4RAS(3l42.*RAS(4n*IX-UZG(5n  + 
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• .5*BHN!:WMNewi*ANE.Hl*K/y<lS*MRI*0ELTAt.5*CRa)^RI3n^ 

• (R{4)-ANEMl*ANEHl«M5}/tAGI5l«AG(5im/ 

•( ANEH1*ANEW1) 

PHNEWl«RHn6(5)«0ELRHt 
ANEHl>SaUND(RHNEVIltPNEMn  _ . 

IFdTEST.NE.DGO  TO  600 

ITEST-2  , ...  _ _ 

GO  TO  610 

600  IF(ABS((PNEVa>PNEW)/PNEW}.GT.TCLlG0TQ610 

IF  ( ABS(  ( RHNEWI-RHNEMI  /RHNEW)  .GT.T0UGQT0610 

NC0UNT«2 

KK*1 

610  PNEW-PNEWl 

RHNEMsRHNEHl 

URNEW«W 

UZNEW«X 

ANEW-ANEWl 

IF(KPRINT.GT.O)CALL  PRIKT 

RETURN 

END 
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:>UQKULT1NE  eCFROPdl , 12f  13t  I4«  I«N»PROFtXt  PROPBtX  ..nO) 

CGMMQN  RM(2;,25)«ZM(25*25ltP(25.25f2) f A(25»25 .2) » RHOI25 »25 t 2 ) . 
.UP(25«25t2)  »U2(25t25t2l»NCRfNCZtRBM(10f30f2)»ZaM(  10»30«2)» 

• RU(  lC«21t2)  tZe(  10»21t2)fTHETM10»30«2ltPB(10f30f2)f  AB(10«30>2), 
.RHOB( lOt  30( 2ltURB(10(30«2l*UZB( 10 t30t 2) tNACTVE ( 25  *2 3) t NODO( 25 *2 5 ) . 
.NBACT(lOi3O.2)fNBO0O(lO«3Ct2)t ITYPEtl0»30»2)f INUM(  10»30f2) t 
.LbPT(  10)  »IA>ES(10t30) 

01  KENS  ICN  PFCP(l)«xm,PRCPB(  10»30*2) 

C IND=l,  VERT  IC#L  INTERSECTICN,  1ND*2  ,HOR  IZONT  AL  iNTERSECTUrj 

INO=nYPE(I  »IA,P) 

C VERTICAL  INTERSECTION 
GO  Tn(lCCt3CC) I INO 
lOw  CONTINUE 

FRCFID^PROPEdf  ll.M) 

X( 1)«RBM(I t llfP) 

PROP! 2)=PRQPe(It I2|M) 

X(2)>RBK(I t 12(P) 

PHUPI 3)*PRCFE(I« I3tM) 

X(3)sRBM(Iy  13. Ml 
X1NC  = PEM( I « lA.P) 

RETLRN 

300  CONTINUE 

PRGP(i)>PRCFE(I«II.M) 

X( 1)-ZBM( I t II.P) 

PR0P(2)«PKCFe(lt I2.N) 

X(2)«ZBM(1 . 12. PI 
PROP(2)*PROPe(l.I3,M) 

X(3)*ZeK(I.  13. M) 

XINU*ZBM(I  , d.P) 

RETURN 

END 
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SUBROUTINE  BEGINUBOUNOtDELTAjKAXISiCONSTI  „ _ . . 

REALKAXIS 

C0NH0N/PLANE/URG(5)«UZ6C5)«PGI5|tRH0Gf  5}fRGf  SltZGfSIr  AGfSI, 

. PNEHtRHNEH  tANEM«URNEW«UZNEWtRAP»  ZAP*  RNEU,  ZNEW 
CQMK)N/PARTTAL/PURRf5)«PURZf5l*PUZRIS)tPUZZ(5)*PAR(5)  *PAZ(5) 
C0MNnN/SETUP/RASI4)«RACf4}*Rt5}*DELP«DELRHt0ELUR*0ELUZfS(5l 
C THIS  SUBROUTINE  DETERMINES  Rfl) 

PI«3.U15R265358^8 

RGR«RKEW 

ZOR«ZNEW 

DFLP*PNEH-PGC5) 

OELRH«RHNEH-RHOG<5l 

OELLR-URNEW-URGC5I 

OELUZ»UZNEW-UZGI5l 

SET  RPO*A*SIN  EQUAL  TO  RAS 

SET  RHQ*A*COS  EQUAL  TO  RAC 

DO  100  I*l»4 

IFUBCUNO.EQ.O)  GO  TO  102 
IFniBOUNO.GT.O).AND.II.EQ.2})60  TO  100 

IE(  n IBnUN0.E0.2).QR.f  1BCUND.E0.5M.AN0.(I.EQ.3MG0  TO  100 
IFin  I80UN0.FQ.3l.CR«n60UN0.E0.6}).AND.(I.E0.inG0  TO  100 
102  AK»<FLnATCII-l.l/2. 

0«-PARm«SINIAK*PII«PAZlII*COS(AK*PIlt 
.PURZm*(COS(AK*Pl  )**2l-PUZRtI  }*(SIN(AK*Pn**2) 
THETA«AK*PI+OELTA*C 
RASU  l-AGf  n«RH0G(I1*SIN(THETA) 

RACCI I«AG(II*RH0G(I1*CCSITHETA) 

IFCRGI  II.NE.0.IG0T050 
PART-PURRf II 
G0TC6C 

50  PART«URG(I)/RGm 
60  CONTINUE 

Sm»»<AXIS*PART+PURRm*fSINCTHETAI**2I- 
.CPUP?m*PUZRmi*SINCTHETAI*COS(THETAU 
.PUZZf II* (CCS (THETA |••2) 

R(II«CCNST*(PG(5I-PG(II)*.5*(UR6(5l-URG(m*RAC(  II* 
..5*(UZG(5I-UZG(I»  l♦RAS(II♦.5•RH0G(II*AG(II*AG(  II*S(II*OELTA 
100  CONTINUE 

IF(RG(5I.NE.0.IGnTC7O 

PART«PURR(5I 

GOTCRO 

70  PART»URG(5I/RG(5I 
80  CONTINUE 

R(5I».5*RHCG(5I*AG(5I*AG(5I*(KAXIS*PART* 

.PURR( 5l+PU7Z(5ll*OELTA 
RETURN 
END 
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SUBRCLTINE  ECNPT( If JtCCNSTtKAXISt  TIHEfOELTAtKPRINTf  I8CUN0) 
REALKAXIS 

CCPP.CN  RM(25,25),ZM(2  5,25)»P(25t2  5«2)fA(25»25.2)f  RHO(25»2  5»2)  « 

.UR  (25  >2:;  ,2)  f tZ(  25t25 1 2)  .NCR  tNQZ  tRBMf  10*  30  *21 1 ZBM(  10«30t  2 ) t 
.RE(10,21f2),Ze(10f21t21tTHETA(10«30»2)tPB(10f30f2)fAB(10.30»2) , 
.RhOe(10t30f2)fURB(10f30f2)tUZB(10t30t2}*NACTVE(25t25)|NOOD(  23.25), 
.NBACT(  10 ,30*2  ),NBCDO(  10,30,2)  fITV  PE  (10, 30*2),  INUMU  0,30,2), 
.LBPT(IO)  ,IAXES(10,30) 

CCPMCN /DAT A/ (TEST, NBP.kIDTh, ANGLE 

CCMMCN/bOUNC/JCODEdO)  , KCCOE  ( 10, 3 ) , LCCOE  ( 10) , MCOOE ( 10  ) , 

. ET IKE ( 10,20,3  ),eCCN( 1 0, 20 , 2C ) , BSP CE ( 1C , 20) , ACON(  10,20,20) , 

.CCCN(  10,20,20 

CCMRCN/PLANE/IRG(5),UZG(5),PG(5),RHCG(5) , RG ( 5 ) , ZG  ( 5 ) , 

. AG( 5) fPNEW, RENEW, ANEW, URNEW,UZNEM,RAP, ZAP, RNEWtZNEN 
C THL  PURPOSE  CF  THIS  SLBRCLTINE  IS  TO  CCPPUTE  THE  PROPERTIES 
C AT  A BOUNCARY  POINT 

INCEX^O 
ITEST*1 

IE((NBACT( I ,«,2).EQ.O).OR.(NaOCC( I , J , 2 ) .EO . 1 ) ) RE  TURN 
ANGLE«THETA(  I ,J,1) 

PNEW«RBM(  I, J,l) 

ZNEWsZBM(  I, v,l) 

IB^ITYPEI  I,w  ,1) 

L SET  CHARACTERISTIC  LIMIT 

C SET  BCUNCARY  CCMAIN 

CALL  BCUNDYd.J) 

IF(KPR  INT.EC.UCALLPRINT 
C SET  UP  DERIVATIVES 

CALL  CIFBD(  I,J) 

C GUESS  PROPERTIES 

CALL  CLESS(1,I,J) 

1000  CALL  INTEG( I fJfOELTA) 

CALL  PEYCHRI  leOUNO, DELTA) 

C INTERPCLATE  FCR  PROPERTIES 

CALL  INPRQPI  ie,lBCUNO) 

CALL  CQNVRT  ( lECUNC) 

NCCLNT*! 

CALL  BCUMPdBCUNO  , T IME  .DELTA ,KAX  I S ,CCNST  , NCUUNT  , KPR I NT  , I , J ) 
INCEX>lNDEX4l 

IE (INOEX.lt. 2*)  GO  TO  lOlC 
WRITE(6,e7CCll,J 
CALL  PRINT 
CALL  EXIT 

ICIO  IF(NCCUNT.EC.l)  GU  TO  1000 
ITEST*1 

C STORE  PROPERTIES  IN  NEW  TIME  PLANE 
PEI  I, J,2)>PNEW 
RHOBI I,J,2)>FENEW 

URE(  I , J,  2 )«LRNEHOCCS(  ANGLE)  'U2NEW4>S  IN  (ANGLE) 

CZB( I,J,2)«URNEW«SIN( ANGLE)«UZNEW«COS(ANGLE) 

AB( I , J,2)>SCLN0(RHNEW,PNEW) 

RBM( I,J, 2)«RNEW 
Z6M(I,J,2)«ZNEW 
RETURN 

8700  FORMAT) IH  ,33HPRUGRAH  LCCFING  AT  BOUNCARY  POINT, 

. I2,lh,,I2) 

END 
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SUBR  OUT I NE  BOUNDY  f 1 1 J I 

COHHON  RH(25,?B),ZM(25*25i;PI29t25t2l tA(2Bt25t2)fRHOf 25t25t2)* 

. UR  ( 25f 25,21 tUZf25»25i2ltNOR,NOZ»RBMfl0f30t2)tZBM(l0,30«2>« 
•RB<10,2l,2l,ZB(10,2l,2l,THETA(lO,30,2l,PB(10t30,2l,AB(10,30,2>, 

• RHnBn0,30,2t,URB(l0,3Ot2ltUZBf  10, 30,21, NACTVEf  25*25 1 tNOOOf  25,25), 
.NBACT(l0,30,2),NR00n(10,30,2),ITVPE(10,30,2),INUMf  10,30,2), 
•LBPTtl0),IAXESIl0,30) 

COMMON/PLANE/URG(5)  ,UZ6f  5),P6f  5)  ,RHd6~(5)  ;R6f  5)  ,ZGf  5)  , 

• AG(5) ,PNEW,RHNFW, ANEW, URNEW,UZNEW, RAP, ZAP, 

.RNEWtZNFW 

CnNMON/nOHAIN/RPO(l5)  ,ZPOIl5l,PDCl5),ADIl5),RHOOa5l, 
.URn(l5),UZD(15),LSUB(15) 

CPMM ON/OAT A/ ITEST,NBP, WIDTH, ANGLE 
COMM ON/XCHNG/ I S,KS,KSl,KS2,f 0,101, 102 
CnMMON/EXCHNG/IE, IF, IG, ICl, IC2,NUMBR 
PI-3.1415926535898 

C THIS  SUBROUTINE  SFTS  UP  DOMAIN  POINTS  FOR  BOUNOARY 
C INTERPOLATION 

r OETERMINF  TYPF  OF  INTERSECTION 
r.  1-VcrTICAL, 2-HORIZONTAL 

IAPT«ITYPF(I,J,1I 
GO  TO  1100,3001, I ART 
C VERTICAL  INTERSECTION 

100  CONTINUE 

NUMBR«INUM(I,J,n 

C ASSUME  THAT  ROWS  WILL  INCREASE 
TROW-1 

IF ( C ANGLE. GT. .75*PI) .AND. { ANGLF.LE. 1 .254PI) ) lROW-2 
GO  Tnm0,120),IR0W 
110  00  112  K-1,N0Z 

JK-K 

IFI7MIK,NUMBR).GT.ZBMII,J,l))G0  TO  114 
112  CONTINUE 

WPFTFC6,8000II,J 
CALL  EXIT 
114  LK-JK^l 
MK-JK42 

116  continue 

C SFT  UP  BOUNDARY  DOMAIN  POINTS 

lO-l 
101-2 
102-3 
IS-I 
KS-J-1 
KSl-J 
KS2-J4-1 

CALL  REPLCTfll 

C DETERMINE  IF  THF  ROW  JK  CUTS  THE  POSITIVE  R 
C PRIME  AXIS, IAXIS-1, POSITIVE, IAXIS-2, NEGATIVE, 

C IAXIS-3, POSITIVE  NO  CUT, IAXIS-4, NEGATIVE  NO  CUT 

TAXIS-2 

IFUf  ANGLE. GT. 0.1. AND.  lANGLE.LE.  .254pm. OR. 

. (I  ANGLE. GT  .PI  I.ANO.I  ANGLE.LE.  1.254pm  II  AXIS-1 
ZA-ZMf  JK,NUM6R) 

TAXES!  I,J)«IAXIS 
GO  TOC 130,132),IAXIS 
130  CONTINUE 

CALL  SET(ANGLE,NUMBR,IART,IAXIS,ICl,tC2) 
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C OFTFRMINF  IF  FIRST  RPW  CUTS  POSITIVF  R-PRIHF  AXIS 
VAt  IIEI^AMAXKZQMII,  I,J«l,n,ZA) 

VALUEZ-AMINUZnMIIf  Jt  llfZBHI  f *J^l.l),ZA» 
TFIIZA.FO. VALUED. PR. (ZA.EO.</ALUE2l)GO  TO  134 
C SET  UP  nOMAIN  POINTS  ON  ROW  JK 
RP0I4)*RM(JKf  ICD 
ZP0(4I*ZM( JK.iri) 

Pn(4l=P(JK,ICl ,11 
RHnD(4»*RH0(JK,ICl,l) 

UROC4)’*UR|JK,IC1.,l) 

uzni4)*uz<  jK,ici,n 
Ani4)*MJK,ICl,l) 

PPOI 5I*RM( JK,NUMBP ) 

?PP( 5)=ZM( JK.NUHBR) 

PDIS  DPI  JK.NUMflR.l) 

RHnO(5)»RHO(JK,NIJMBR,l  I 

URPI5)»UR(JK,WUMBR,D 

UZn(5)=lJZ(JK,NUMBP,l) 

AP(5)>A(JK,NIIMBP,ll 

C INTERPPLATF  for  BOUNPAPY  POINT  PPOPERTIFS 

ZPn(6)»ZM(  JK,MIIMBP  I 

RP0(61«RBMII,  J-I.n  + (OfiM(I,J-frl,l)-RBNII,J<-l,in* 

. I ZPOIM-ZBM(  I,  J-l,in/(ZRMn,J+l,D-7BMII,J-l,l)  » 
CALL  INTFRP(Pn,RPn,Pni6),PP0f 61,3,31 
CALL  INTFPP(PH0n,RPn,RHnDf6l,RP0I6»,3,3l 
rAU  INTFRP(UPn,RPn,Upn(6»,RPO(6I,3,3) 

CALL  INTEPP(UZO,RPO,UZni6»,RPOI6»,3,3» 

CALL  INTERPI  AP,PPD, AOI 6), RPOf 61,3,31 

LSUPIIDI 

LSURI2D? 

I SUB(3)«3 
LSUBI4D7 
LSUB(5)*0 
I SUBI6D9 
LSUBITDIO 
ISHBIBDll 
LSUB(9)»12 
no  TO  136 
134  rONTINUF 

lAXESI I,J)*3 
nP201K*l,<> 

201  ISURIKDK 

C INCPEMFNT  COLUMN  +,-,ONF 

IF=4 
TF«5 
IG»6 

CALL  TRNSFRIIART,1,JKI 
136  CONTINUE 

r.  SET  UP  DOMAIN  POINTS  ON  POW  LK 
IF=7 
TF*8 
IG*9 

CALL  TRNSFR(TART,1,LK) 

C SET  UP  DOMATM  POINTS  ON  ROW  MK 
IF-10 
IF*11 
IG  = 12 

CALL  TPNSFP(IART,1,MK» 
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PFTU«N 

132  CONTINUE 

r oftermine  tf  first  row  cuts  negative  r-axis 

CALL  SETIANrLF.NUMBRdARTtfAXfStlCl,  IC2I 
VALUEl«ANAXl(ZBM(ItJ*lttZBMn,J-l,l),ZA| 
VALUE2«AHlNUZBMn«J«lltZBN(I,J-l,n,ZA) 

IFf IZA.E0.VALUE1I.0R.(ZA.E0.VALUE2I )GO  TO  lAO 
r.  SFT  UP  OOMAIN  POINTS  ON  ROW  jX 
ZPDU)«ZM(JKtNUMBR) 

PPn(4)>RBM(I,J-l,lU(R6Hn«J^ltl)-RBMnt 
.(ZPn(4l-ZBH(  I »J-Uin/fZBMf  I,j4ld)-ZBM(  I,J-l,in 
CALI  INTERP(PD,RP0,P0(4»,RPni4)*3,3» 

CALL  INTFPP(RHOn,RPn,RHODI4)tRPOI4l,3f 31 
CALL  INTFRP(UPn,RPDfUPOI4l,RPOI4lt3*3l 
CALL  TNTFRP(UZO,PPO,UZDI4l,RPOI4lt3t3) 

CALL  INTFRP( AD,RPD,An(4l»RP0(4)t3t3l 
PPn(5)*RM(  JK.NUMBR) 

7Pni5)*ZM( JK,NUMBP| 

PnC5l«PUK,NUMBR,n 
RHOO(B)>RHO( JK,NUHBRtl) 
l]Pn(5l«UR(  JK,NIJMBR,1) 

UZni5)»UZ(JK,NUHBP,n 
AD(SI«A( JK,NUMBR,1) 

RPn(6)*RM( JK, IC2» 

ZPn(6l»ZM( JK,IC2) 

P0(6I«P(  JKtIC2«U 
BHnO(4|»RHni  JK,IC2,U 
UPn(6)»UR( JK,IC2,l I 
UZn(6)»U7(JKf TC2,l) 

An(6)«AI JK, IC2,1) 

ISUB(1)«1 
LSUBI2I-2 
L SUB <3 1*3 
ISIIB(4)»7 
LSUBf5J*8 
LSU8(6)»9 
LSUBf7»*lO 
LSUR<8)*11 
LSUB(9|»12 
GO  TO  142 
140  CONTINUE 

C INCREMENT  COLUMN  ♦,-,ONF 

I AXES! I, J)<4 
n0202K-l,9 
202  LSU8(KI«K 
IE-4 
IF«5 
TG-6 

CALL  TRNSFR{IART,1,JKI 
142  CONTINUE 

C SET  UP  DOMAIN  POINTS  ON  ROW  LK 
IE*7 
IF«B 
IG«9 

CALL  TRNSFR(TART,1,LKI 
r DETERMINE  ROM  MK 
IE*lO 
TF«ll 
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CALL  TRNSFR{ IART,l,MK) 

RFTURN 

120  CONTINUF 

C SCAN  ROMS  OECPFASING  TO  FIND  ROM  JK 
on  122  K*1,N0Z 
JK*N07-K*l 

IF(ZN(JK,NUMRR»,LT.7RMC  ItJf 11160  TO  124 
122  CONTINUE 

WP,fTF(ft,ROOO)  I,J 
CALL  FXIT 
124  LK«JK-l 
MK»JK-2 
GO  TO  116 

C HORIZONTAL  INTERSECTION 

•^no  CONTINUE 

NUMBR«INUMf I, J,l) 

C ASSUME  THAT  THE  COLUMNS  MILL  INCREASE 

irOL*l 

IF({  ANG!  E.r,T,.?S*PI).ANn.(AN6LE.LE..75*Pin  IC0L*2 
GO  Tni3l0,^201 , TCOL 
310  on  312  K*l,NOR 
JK-K 

TF(PM(NUMBR,K1 .6T.R0M(  ItJilllGO  TO  ?14 
312  continue 

WRITE(6«fl0001  I,J 
CALL  FXIT 
314  IK=JK+1 
MK=JK+2 
316  CONTINUE 

C.  SFT  UP  ROUNDAPY  OOMAIN  POINTS 

10*1 
101*2 
102*3 
IS*I 
KS*J-1 
KSl*J 
KS2*J+l 

CALL  REPLCTfl) 

OFTFPMTNE  IF  THE  COLUMN  JK  CUTS  THE  POSITIVE  R 
PR  IMF  AXIS* I AXIS* IfPOS  IT IVEfIAXIS«2» NEGATIVE* 
IAXTS-3, POSITIVE  NO  CUT*  I AX  I S»4* NEGATI VE  NO  CUT 
IAXIS*1 

IFII  (ANGLF.GT.,25PPII  .ANO.UNGLE.LE.  .SYPI ) l.OR. 
.((ANGLF.GT.l.254PI).AN0.(ANGLE,LE.l.5*PI ) 1 1 IAXIS»2 
RA*RMINUMBR*JK) 

TAXFS(I*J)*IAXIS 
GO  T0(330*340l ,IAXIS 
330  CONTINUE 

CALL  SET(ANGLE*NUMBR*  lART* IAXIS*ICl« IC2) 

C DETERMINE  IF  rjpsT  ROM  CUTS  POSITIVE  AXIS 
VALUFI*AMAX1 (R BH ( I * J*  1 1 *RPM(I * J«l * 1 1 tP A I 
VALUF2*AMIN1(PBM(  I*Jtll,RBMn*J«l*ll  *PA1 
IF((RA.FO.VALUEll.OR.IRA.EO.VALUE2nGO  TO  332 
C SFT  UP  DOMAIN  POINTS  ON  COLUMN  JK 

RP0(4l*RM(ICl*JK) 

ZP0(4)*ZM(  IC1*JK) 

Pn(4)*PnCl*JK*ll 
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PH0D(4)«RH0| IC1,JK,1I 
UR0I4I»UPIIC1,JK,II 
UZ0(4|->U7(  IClf  JK,ll 
A0f4)-AnCt»JK,l| 

RPn(91«RM(NUMBR«JK| 

ZPD(5)«ZM(MUMRR,JK1 
P0C5l«P(NUMBRtJK#U 
RHOD  ( 5 1 «RMO  ( NUHRR  * JK,  1 ) 

URO(5)sUR(NUHBRtJK,ll 
UZD(5l-UZINUNBRfJK,ll 
An(5l*A(NUMBRt JK.l) 

f INTERPOLATE  EOR  BOUNDARY  POINT  PROPERTIES 
RPn(6l«RMCNUHBRt JK) 

ZPD(6)«ZBM(  I»J«l)>(ZBH(I*J^l,l)-ZBMf 
. fPPn(6)~RBM(  I«Jtin/(RBMf  I»J^l«ll-RBMn*J«m 
CALL  INTERP(Pn«ZPn,P0(6),ZP0f6)«3»3t 
CALL  INTERP(RHnn,7Pn,RHOOC6»,ZPD(4l,3t3l 
CALL  INTFRP(llRn,ZPO*UROI6l.ZPDI6),3t3) 

CALL  TNTERP(UZ0tZPDtUZD(6)»ZP0(6)«3,3) 

CALL  INTERP(ADtZP0(An(61fZPD(6),3,3) 
lSUflm«l 
LSUBC2)*2 
LSUR(3|«3 
1<;UB<4I«7 
LSUR(5|«8 
LSUBI6I-D 
LSUB(7)»10 
LSUB(8)«ll 
LSU0(P»«12 
GO  TO  334 
332  CONTINUE 
C SET  COLUMN  JK 
lAXESdf  J)«3 
D0203K»l,9 
203  LSUB(KI*K 
IE«4 
IF*5 
IG«6 

CALL  TRNSFPnART,l,JK» 

334  CONTINUE 

C SET  UP  DOMAIN  POINTS  ON  COLUMN  LK 
IE«7 
IF«8 
IG»9 

CALL  TRNSERI lARTfltLKI 
C SET  UP  COLUMN  MK 
IF-IO 
IF«ll 
IG-12 

CALL  TRNSFR(IAPT,1,MK) 

RETURN 

340  CONTINUE 

C DETERMINE  IE  FIRST  ROW  CUTS  NEGATIVE  R AXIS 
CALL  SET ( ANGLE .NUMBRt t ART*  TAXI Sf ICl « IC2) 
VALUEl-AMAXKRBMfltJfllvRBMIItJ-lflltRA) 
VALUE2«AMINl(PBMn*J,ll*RBMf  I*J-l,n,RA) 
lEIfRA.EO.VALUEn.OR.fRA.EO.VALUEZnGO  TO  342 
C INTERPOLATE  FOR  PROPERTIES 
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ppn(4l*PM(NUMBR,  JK» 

Z0D(4)>ZRM(  ItJtl  K(ZPMn,J«l,n>ZBMfI«JtlM* 

. (RPD(4)-RBMn,J»  1)  )/fRBMf  T,J>1»1I-RRM(I»J,1)  I 
CALL  INTFRP|P0,ZPn,P0(4)tZP0(4}«3«3l 
CALL  INTFRP|RHOn,ZPOtRHnO(4»tZPDC4l*3t3l 
CAIL  !NTrRPfUP0,ZP0,UR0J4l,ZPDC4),3t3l 
CALL  INTFRP(UZn,ZPn,UZni4l,ZP0C 41,3*31 
CALL  INTFRP( An,7Pn,An(4) ,ZPnl4l,3,3l 
PP0(5)»RMCNUMPP, JKI 
ZPOJ  5)*ZM<NUMflP, JKI 
Pn(5)*P(NllMBP,JK,  l» 

RHnO(5)*PHn(NUMPR,JK,n 
URnf5)=UP(NlJMpP,JK,l) 
l)Znj5»*U7(MUMRP,  JK,1) 

An(^)  = A<NUMPR,JK,n 
PPO( A)*RR(Tr?,  JK I 
ZP0(6l*ZP( IC2.JK) 

P0(4)«P(IC?, JK,1 ) 

PHnn(6>*PHn(  tcz,  jK,n 
UOD(6)*UR< IC2, JK,  II 
uzn(6i*uznc2,jK,i) 

An(M*A(IC2,JK,lI 

LSUBH)*! 

LSUP(2)=2 
LSIIR(3)*3 
LS<JB(4l*7 
f SUR(5)*R 
LSIIB(6)*9 
L91IR(7I*10 
L<:il«(8)*ll 
LSUR(9I»12 
no  TO  344 
342  CONTINUE 

lAXFSC I,JI*4 
nn?04K*'i,9 
204  LSlJP(K)aK 
C SFT  COLUMN  JK 

IF=4 
TF*5 
IG«6 

CALL  TRNSFPnAPT,l,JK| 

344  CONTINUF 
C FORM  COLUMN  LK 

IF=7 
TF  = R 
IC.«9 

CALL  trn<;fpjiapt,i,lki 
C SFT  COLUMN  MK 

IF  = in 
IF  = ll 
TG*12 

CALL  TPNSFR( I ART,1,MK) 

RETURN 

320  CONTINUF 

C SCAN  OFCRFASING  COLUMNS  TO  FIND  COLUMN  JK 

DO  322  K*l,NrP 
JK=NOR-K+l 

IF(RM(NUMRR,JK).LT.PBMCI,J,inGn  TO  324 
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3??.  CONTINIJF 

WRTTF(6t8000MtJ 
CALL  FX!T 
324  LK«JK-l 
MK-JK-2 
Cn  TO  316 

8000  FORMAT  (IH  t31MC0LUHN  AND  ROW  SEARCH  FAILED  TNf 
.IIH  SUB  BOlfNnYtT2tlH,,I2) 

FNO 
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SUBROUTINE  BSERCHI  CELRfOELZf Ml 

COMMON  RMf 25,25),ZM(25«25)tPf 25t2S»2)«A(25»25,2ltRH0( 25»25t2l » 
.UR(25«25t2)tUZ(25t 25,2)«NCRtNOZtRBMf 10, 30f 21 1 ZBM( lOt 30t 2 1 « 
.RB(10,2l,2l,ZB(10,21,2),THETAt l0,30,2l,PB(10,30,2l,ABf 10,30,2) , 
•RHOei 10,30,2),URBC 10,30,2),UZB(10,30,2),NACTVE(25,25),NODO(25,2?), 
.NRACT  110,30, 2), NBOOni 10,30,2) , ITYPEt 10,30,2)  , INUM( 10,30,2) , 

.LRPTI  10»  ,IIXESn0,30| 

COMMON/PrUNO/JCOnEIlO) ,KCCnEll0,3),LC00Ef 10) ,MC00EC10I, 
.RTIMEaO,20,3),BCnN(  10,20, 20) , BSPCEI  10,20) , ACONI  10,20,20) , 
.CCOMl0,20,20) 

CQMMON/nATA/ITEST,KBP,ViIOTH,ANGLE 
PI»3.  H15*)2(S535B90 

C DETFRMINF  horizontal  and  VERTICAL  MESH-flOUNOAR V INTERSECTIONS 
on  600  1*1, NBP 
KSPCE*LCCDEm-l 
NBR*l 

ZBM(I  ,NBR,M)«Zn(I,  1,M) 

PB*'(I,NRP,M)*RB(I,1,»«) 

DO  60?  J*1,KSPCF 

BETA*ATAN2((ZR(I, J«1,M)-ZB( I,J,M)),(RBf I, J^1,M)-RB(I,J,M)  )) 
IF(PFTA.LF.I-PI/4.  ))BETA«BETA>2.*PI 
C ASSUME  A CCNSTANT  Z LINE  INTER  SECTION, I ART*2 
IART=2 

IP(  ({BETA. CT.(-PI/4.  n.ANC. (BETA. LE.IPI/4.))  ). OR. 

. ( (fiFTA,GT.(.75*PI  )). AND. ( BETA. LE. ( 1. 25*PI ))) ) I ART* I 
GO  TO  (610,623),  lART 
620  CCNTINUE 

r.  HOPIZCNTAL  IMTEPSECTICN 
DO  630  L*l,NOZ 
KL*NC7-L-H 
ZA*ZM(L,  1) 

IF( (BETA.GT.1.25*PI).AND.(BETA.LE.1.75*PI ))ZA»ZM(KL,1) 

VALUFl*AMAXl (ZB(  1 , J^l , M) , ZB ( I , J, M) , ZA) 

VALUF2*AMIM(ZB(  I , J^1,M)  ,ZR(  I , J,M),ZA) 

IF(  (ZA.FQ. VALUED. CR.(ZA.E0.VAL0F2))  GO  TO  630 

NBP*NBR+1 

ZPM( I ,NBP,M)*ZA 

PBMd  ,NBP,»»)»R5(I,  J,M)  + (RB(I,J^1,M)-RR(I,J,M)  )* 

.(ZA>ZB(I ,J,M))/(Ze(I,J4l,M)-ZB(I,J,M)) 

ITYPFI  I,NeR,M)*IART 
INUMI I,NBR,M)-L 

IF( (BETA.GT.1.25*PI).AND. (RETA.LE.1.75*PI)) INUM( I,NBR,M)»KL 
630  CCNTINUE 
GO  TC  602 
610  CONTINUE 
C COLUMN  INTERSECTION 

DO  640  L»1,N0R 
KL*N0R-L+1 
RA=RM(l,L) 

IF( (BETA.GT..75PPI  ) . AND. ( BETA. LE .1.25*PI ) ) RA«RMl I , KL ) 
VALUE1*AMAX1(RB(  I,  J«‘1,M),RR(  I,  J,M),RA) 

VALUE2*AMIN1(PB(I, J*1,M),RB( !,J,M),RA) 

IF( (RA.E0.VALUF1).CR.(RA.EQ.VALUE2))  GO  TO  640 

NBR-NBR+l 

PBM(I,NBR,M)*RA 

ZRMd  ,NBP,M)*ZB(I,  J,MD>(Ze(l,  J4-1,M)-Z6(I,J,M))P 
.(RA-Ren,J,M))/(RB(  I,J«1,M)-RB(I,J,M)) 

ITVPE(I,NRR,M)»1ART 
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INUP( IfNBR,M|»L  

IFf  fRFTA.GT..75*PI  ).ANO.  ( BETA.LE.1.25*Pin  INUNI  I tNBRtNI«KL 
640  CONTINUE 
602  CCNTINUF 
NBR»NBR>1 

ZBMdfNBRtNI-ZBI  I,KSPCE4l«Mt 
RBHII ,NBR,N)«RB(I«KSPCE«l«NI 
LBPT(I1«NBR 

ITYPE(I,l,H)-ITYPECI,2tPI 
ITYPF(I,NBR,MI»ITVPEM.NBR-ltNI 
600  CONTINUE 

c oftermine  angle  of  boundary 

DO  702  K«1,NBP 

KSPCF*LBPT(Kl-l 

KP*LBPT(K| 

THETA(K»l»N)«ATAN2(IZBH(K*2,M|-ZBH(K»l»H|), 
.(RBM|Kt2tM)-RBN(K, 1,M)  ) I 

TF(THETA(K,l,N|.LT.0.ITHETAIK.l,MI«THETACK,l,N)*2.*PI 
THETA(K»KP|H)«ATAN2(IZBH(K,KPtMI>ZBM(K,KP>l»Hn« 
.IRBNIK,KP,MJ-R8M|K,KP-l,Hin 
IF|THETA(K,KP,Nl.LT.0.ITHFTACK,KP,M)»THETACK,KP,MI+2.*PI 
DO  702  L»2fKSPCE 

THETA ( K,L,P|«ATAN2 ((Z6MCK,L»lfN|-ZBMIK,L-l,NI», 

. (RBNlK,L*liMI-RBM(K,L-l,Mm 
702  IF<THFTA(K,LfM».LT,0.ITHETACK,L.MI«THETACK,L,NU2,*PI 
C DETERMINE  IF  BOUNDARY  POINT  IS  ACTIVE 
VALUE«AMAXllOELPf OELZIP.OCl 
DHEAS*AHINU0ELRf0ELZ)*.9 
DO  430  I»lfNBP 
KSPCE-LBPTIII 
DO  430  J*lfKSPCE 
NBACTCI* J,P|«l 
NBOrOlIt Jf P)«0 
RMA«RBM( I, JtNI 
ZMA«Z6Mnf  JtM) 

DO  430  K»l,NBP 
IFIK.EQ.DGO  TO  430 
KB*L0PT(K)-l 
DO  434  L*lfKB 

ANGLE«ATAN2nZBM(K,L«lfM|-ZBM(KtLfMI)f 
.(RBM(K,L4^l*M)-RBM|l(,Lf  Pin 
2PR.-(RMA-RBM(K,L,Pn*SINCANGLE|4 
.(ZMA-ZBMfKfLfNlIPCOSIANGLE) 

RPR*(RMA-ReMlK,LfMn4CCSf  ANGLE  »♦^ZMA-ZBMIK,LfMn♦ 
.SIN(ANGLE) 

DIST*SQRT((ZPR**2l4|RPR*»2n 
IFIZPR.GT.C-VALUEI  I GO  TO  434 
NBACT(I»J*M)«0 

434  IFfCIST.LT.OMEASINBODDf I,J,M|-l 
430  CONTINUE 
RETURN 
END 
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SUBR  OUT  f NF  CNR  BO (I  , J , K , I BOUND ,KNT , PH  I , BFT A » 

COMMON  RM(25»25),ZMI25,25)«P(25«25t?) ,Af 25,25f?) .PHOC 25,25,2  I « 

. UR < 25, 25, 2 ), UZ ( 25, 25, 2 },NOR,NQZ,PBM( 10,90,2 ),ZBM( 10, 30,2 1, 
.RB(10,2l,2) ,ZP(lO,21,7),THFTA(lO,30,2),PB(lO,30,2l,AB(10,30,2t, 
.RHnB(l0,3n,2),UPB(l0,30,2),UZBa0,30,?l,NACTVE(25,25),N000(25,25|, 
.NB^CTn0,30,2l,M50nn(  10,30,21,ITYPFI10,30,2),INUM(  10,30,21, 
.LBPTdO)  , I AXFS(10,30I 

rnMMnN/npMMN/RPn(15)  , ZPD(  15»,P0C  15J  , AD(  15),RHnO(  15t  , 
.UPn(l5»,UZn(l5),LSUB(15l 
rnMMaN/XCHNG/IS,KS,KSl,KS2, 10,101,102 
common /YCHNG/KB.XP,  IR , IC I , TC 2, IF  I , IF  2, T El 
C THE  PURPOSE  nr  THIS  SUBROUTINE  IS  TO  SET  UP  THE 

r nOMA  IN  opiMTS  FOR  THE  CORNER 

r GRID  POINTS 

I SUR( I 1 = 7 
LSUPI2»=^ 

LSUP|l)*l 
I SUR(4)=fl 
ISUP(5J=5 
lSUR((S)*2 
Lsuni 7)*0 
LSUB(fll*6 
I SUO(q)*l 
GO  T0(100,100) ,KNT 

r SFT  UP  DOMAIN  FDR  FI«>ST  CORNER  POINT 

ion  CONTINUE 

in='^ 

ID1=4 
ID2=l 
KS  = J 
KS  l=J*l 
KS2* J+2 
IS=I 

CALI  PEPCCTIU 

C SET  UP  COLUMNS  OR  ROWS  FOR  DOMAIN 

KTYPE*TTY«»E(  I ,J+l,l  I 
IPT1=INUMI  i,j*i,n 
IPT2*INUM( I,J*2,1) 

PHI*THFTA( I ,J,1I 

CALL  SOI  CT(I ,K,l,J,TPl,IR2,IPTl,IPT?,KPTl,KPT2,PHI, 
.BFTA,KTYPE,ITYPEI 

C SFT  UP  PFMAINING  DOMAIN  POINTS 

KB  = K 
KPsKPTl 
IP  = IRl 
iri*IPT? 

TC2=IPTI 

IEl=? 

IF2=5 

!F3=a 

CALL  TRSCNR(l,KTYPFI 
KP=KPT? 

IP=TR2 

IF1=3 

IF2=6 

IE3=0 

CALL  TRSCNR(l,KTVPFI 
RETURN 
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c 

300 


C 


C 


SFT  UP  DOMAIN  FOP  SECOND  CORNER  POINT  

CONTINUE 

in*7 

ini-4 

ID2«l 

KS«J-2 

KSl-J-l 

KS2«J 

IS»T 

CALL  PEPLCTdl  tui 

SFT  UP  COLUMNS  OR  ROWS  FOR  DOMAIN 

KTYPF*ITYPE(I  » J-ltU 

IPT1*INIIMII»J“1»H 

IPT2«INUMII 

‘s^t^up^pematning* domain  points 

KR«K 

KP*KPTI 


1R«IRI 

ICI-TPT2 

IC2*IPTl 

IFl.R 

TE?*5 

IE3*2 

CALL  TRSCNBII.KTYPFI 

KP*RPT2 

!P«IR2 

IFl«<* 

IF2*6 

IF3«3 

CALL  TRSr.NPClfKTYPFI 

RETURN 

END 
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SUBPOUTINE  CCMPEOIlBCUNOtTmEtDELTAtKAXIStCONSTt 
.NCOLNT.KPPINTI 
PEALK AXIS 

C 

C COMPUTE  GENPPAL  POINT  CCMPATIBILITY  EQUATIONS 

C 

CCPMCN  oM(2S,25)»ZP(25.25t.P|2Sf 25t2)«A(25(25,2)(RHQ(25,25t2) f 
.UPi  25,25,2MJZ(25t2B»2)tNrR,NnZtABMI19,30*2lf  ZBM(10»30»2I, 

.PB(  lO«2U2)»ZnnOf  21(2)tTHETA(  10f30t2l  tPB(  10t30»2)  »A3<10t30,2)  » 
.PHPFin,30,?I  ,1/03(10, 30,2 1, UZB  CIO,  30,21  ♦NACTVF 1 25, 251,  NOaOl  25, 25»  , 
.NBACT(lO,3C,2I,NBOnnnO,30,2I  , ITVPEI  10 ,30 , 2 » , I Ni/M(  10 , 30,2  > , 

.LPPT( 10) , IAXES(10,30) 

rCMPCK/PAPTI  Al/PlJR0(S),PnBZC5l,PUZR(5l,PUZZI5),  PARC  5)  ,PAZ(  5) 
nHMPN/PLANE/UBGC  5I,UZGC5I,PGC  51  ,RM0r,(5) , RGC  5 ) ,Zr,(5l , AGC  5 ) , 
,PNEV,PHMEW,ftNFW,URNFW,UZKEW,RAP,ZAP,RNPW,ZNEW 
COMMr;N/nAT*/ITPST,NRP,KinTH,  ANGLE 
^CMPC^/STATE/PINIT,RHCI^T,AINIT 

r,OMMCN/‘‘.ETUP/O  ASC«),RAr.CA|,RC  5l,0ELP,nELRH,r)rLIJR,  OEUJZ 
OATA  KK/l/,t»T/3.lAl5G?65/ 

CALI  PEGIM  IBOiJNn,OELTA,XAXIS,CCNSTI 

prDs:O^CM 

£no  *ZNPW 

C.  rOMPUTE  CENTRAL  POINT 

su«i*r . 

5'|M3sO. 
nn  11 0 ! =i ,A 
EUM1*'IJM1*PASC  1 1 
EUM2=SlJM2>0Ar,(  n 
SUM3  = SIJM3*0C  1 1 
lin  CCNTTNIje 

XA«50UNnCOHirw,PN6Ml 
IFCFOP.NF.O. IGCTCIO 

PACTxnijP0(5i 

C'^TTl  I 

10  PAOTxt'PMCW/ono 

11  CCNTIMjc 

OF  I Pl  = -.25*';iJM7*nELUP-.25*S(/Ml*nEUJZ-.5*RHNcW* 

. XA*yA*KAyi  S'*PAPT*nELTA-,25AXA*OHNEM*'CUOGC3)- 
.IIOGCI  )*'J7GC«I-'JZGC  2)  )tO(  5 1-.5*SUM3 
nELFl»OELPl/rCNST 
PNEWl*PG(5)*ncLPl 
XA»SOUNn(PFNFW,PNEhl ) 

rFLU0l»-.5OCPASC  D-0ASC3)  l*nELUZ-.5*RHNFW*XA* 

. ( 2.*!JPGC  51-MOGC II-UPGC31  »*RC3J-Rm 
DFLUP  l*OELL'0  1/  C .5A(2.*PHNEW*XA+0ACC  D-PACC  3)  ) ) 
lJRNFWlx'|0GC5)*CFLMRl 
IFCPOO.NE.C. 1G0TO2C 
PAPT=piJP0(5l 
GCTf2l 

?C  PAOT*UONEW1/ROO 
21  CCNTINt/c 

DELUZ l*-.5*CPACC2)-0ACC4l |♦0ELU0l-.5♦PHNEM♦XA* 

. I2.*'/ZGC5)-MZrC2)-UZGCAn*RC4l-RC2l 
nFLlJZl’*0ELUZl/C.5*(2.*0HNEW*XA^RAS(2I-PASCAm 
nFLPHlxA.*OFLPloCOKSf^.5»SUM2*OELURl*,5*SUMl* 

.DPLUZ 14PHNEW*XA*XA*KAXIS*PAPT*DELTA+,5»XA* 
.0HNEW*Ci)PGC3)-ilPr,m4UZGCAI-UZGI2l»-2.*CCXA/AGC5l  1**21* 
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.RI5I+SUM3 

nELRHl«DELRHl/(2.*XA«XA) 

UZNFWl«UZG(5)tOELUZl 
RHNEWI«RH0G(5U0ELRH1 
IFI ITEST.NE.IIGO  TO  132 
ITFST.2 
GO  TO  130 
132  RATIO-. 01 

IF(ABSfURNEW).GT.O.)RATIC>ABS(IURNEWl-URNFW|/URNEW) 
IFIPATI0.GT..01IG0  TO  130 

IFIAB<(UZNEWI.GT.O.IRATtO«ABSf  tUZNEWl-UZNEW) /UZNEWI 
IFfRATin.GT..OllGC  TO  130 
IF(ARSnRNEWl-PNFMl/PNFt)).6T..0UG0  TO  130 
IFI AB«(|RHN?Wl-RHNEWI/RHNEWI.GT..01IG0  TO  130 
NCCUNT*? 

130  PNFV»*eNPWl 

PHNFW-RHKEWl 

IJPNEW-dPNEMl 

UZNFW-UZNEWl 

IFIKPPINT.GT.OICALL  PRINT 

PFTUPN 

END 
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SUBkOLTlNE  CCNVATUBOUND) 

CCMMCN/OERIV/CURRdSI  tOURZf  15lfCU2R(15)  (OUZZf  15)  ,OAR(15l» 
.C«Z(15) 

CCf'f'CN/PART  I AL/PUPRI9)tPURZ(5)(RU2RC5)fPUZZ(5),PAR(5)* 

. PAZ(5I 

CCRRCN/CATA/  ITEST  tNBPiW lOTHf ANGLE 
DIMENSION  ALRR(3) * AUZR(3) tAURZ(S) »AUZZ ( 3 ) • A AR ( 3 ) , 

. A A Z ( 5 ) » OURR ( * ) f BUZR ( 5 ) i BURZ I 3) »BUZZ ( 5 ) 

THf  PLRPCSE  CF  THIS  RCUTINE  IS  TO  TRANSFORM  THE  DERIVATIVES 
TO  TFE  PRIMEC  SYSTEM 
SIOHE  CERIVATIVES 
DO  ICC  K*l,5 

1E( ( IBGUNO.G1.0).AND.(K.EC.2))GO  TO  ICO 
C larUNO=l ,DRCF  2f IBCUNC«2# CROP  3, I COUND*3, DROP  i 

1F((( IBOLND.EC.2).aK.(ieCUNC.EC.5)).AN0.1K.Eti.3))GO  TO  100 
1F(((  IBriUNC.EC.3).UR.(lBaUNn.EC.6)).ANn.(K.EO.mGO  TO  103 
AURF  (K )*PURR  (K) 

AL2H(K)=PU2F  (K) 

AUR^ IK  ) = PU«Z  (K  ) 

AUZZ(K)  = PU22  (K) 

AAK(K)>PAR(K) 

AAZCK)>FAZ( K ) 

C CCNVERT  DERIVATIVES  TO  PRIME  CCLROINATES 

PARIK )=AAR(K)  «CCS( ANGLE )4AAZ(K)*S  INI  ANGLE  ) 

P AZ(  K )=-AAR(K)  ♦SIM  ANGLE  )«-AAZ(Kl*  cost  ANGLE) 
eURk  (K)=AUPP  (K)'*CCS(  ANGLE  )4AUP.ZIK  l*S  INI  ANGLE  ) 
blRZ  (K)s-AUHF  IK)*  SIM  ANGLE  )-»AURZfK)*COSI  ANGLE) 

EUZRIK  )*AUZfi  (K  ) *CC SI  ANGLE I^AUZZ I K|*S INI  ANGLE) 
BL2ZIK)»-AUZFIK)«SINIANGL£)«AUZZf K)*COSIANGLE) 

PURR ( K)sBUPR  |K)*CCSI ANGLE)teU2PIK)*SIN|ANGLE) 

PUZR (K)  = -eUR3  IK)*SINIANGLE )>BUZP I K) *CCSI ANGLE ) 

PUKZIK  )- BURZ  IK)  *COSI  ANGLE  )-»BUZZ  I K)*SI  N(  ANGLE ) 

PUZZIK  )>-eURZ  IK)«SIMANCLE  )«eUZZCK)*CQSlANGLE  ) 

ICO  CCNTINLE 
RETURN 
END 


SUBPnUTlNE  CORCOMnBCUNDfTIMEtDElIA»KAXISiCONSTt 
.NCOUNT»KPRINT» I,JI 

c this  routine  integrates  ccrner  roint  compatibilitv  equations 

REAL  KAXIS 

CCNNCA  RN(25,25),ZM(25,2SI,Pf 25»25f2)fAI25.25,2) tRHO(25f25t2l f 
.UR<25,?9,2ltUZ(25f 25t2}«NORtNOZtRBNClOt30t2lfZBNt 10.  SOtZIt 
.PBI  10«2lt2l»ZB(10,21«2)tTI-ETA(l0t30f2)tPB(10,30f2)tABf  lOfSOtZ). 

• RHOPI  10,30,2)  tURBUOtSOt 2) «UZBI10»30t2) «NACTVE( 25*251  ,NOOOf  25,251  , 
.NBACT(10,30,2),NBGCOnO,30,2),  ITYPEI  10,30,2),  INUHI  10,30,2), 

.LBPTf 10),IAXES(10,30) 

CrNPrK/OAT4/ITEST,NBP,MIOTH,ANGLE 

C0HPaK'/PLANE/URG(5),UZG(5),PG(5),RH06(5),RG(5),ZG(5),AGf  5), 
.PNEh,RHNEW,ANEW,URNEW,U2KEW,RAP,ZAP,RNEW,ZNEW 
CCMMC^/RCUNr>/JCOnE  (10)  ,KCnOEI  10,  3)  ,LCnOEl  10)  ,MCnOE(  10) , 

. RT I ME  ( 10,20,3)  .RCGM  10,20 ,20)  , BSPCEI 10 ,20 ) , ACONf  10, 20, 20 ) , 

.CCCM  10,  20,20) 

C0MPCN/SFTUP/PASC4),RAC(A),RI5),DELP,DELRH,DFLUR,DELUZ,S(5) 
rOPNnN/FXT/URP,lJZZ,V,PRAT,ARAT/STATE/PINIT,RHOINT,AINIT 
COPPOK/PARTIAL/PURR(5),PUPZ(5) ,PUZR( 5 ) ,PUZZ( 5 ) ,PAR( 5) , PAZ( 5) 
DIMENSION  niST(3),F(3) 

DATA  KK/1/ 

PI-3.1A15926535B9753 

TnL*O.C000001 

TOL*O.COOl 

CALL  RFr.IM!  BOUND,  CELT  A, KAX1S,C0NST) 

rop*rkfw 

ZOR*ZN«W 

IF(JCCCE(I).EQ.3)KK«1 
GO  TC(100,110),KK 
100  KK«2 
K*I-l 

IF(J.E0.LBPT(I))K»I+1 
IFIK.EO.O)  K»NBP 
IF(PCCOFm.EO.O)  GO  TO  200 
RCRA»POR*WIOTH 
ZORA»ZOP*mOTH 
TIME1*TIMEPWI0TH/AINIT 
CALL  EXACT(RaRA,ZCRA, TIMED 
Z*-URR*S IN (ANGLF)*UZZ*CCS (ANGLE) 

IF( JCCnE(T),NE.7)GC  TO  110 
W«UPR*CnS( AN GLF)+UZZ*SIN( ANGLE) 

PPaV 

U*RRAT 

IK=*1 

IF(J.E0.LBPT(I))IK»2 
GO  TO(120,130),IK 
120  J1«J4^1 

J2*J*2 
GC  TC  140 
130  J1»J-1 

J2»J-2 

140  CONTINUE 

RnPl«PBM(I,Jl,l)*HIOTH 
Z0R1«ZBM(I,J1,1)*HIDTH 
R0R2«RBMn,J2,l)*MIDTH 
70R2*ZBM(I ,J2,1)*HI0TH 
DIST(l)-0. 

DIST(2)«(RBM(I  ,Jl,l)-RBM(I,J,l))*COS(ANGLE)«•(ZBM(I,Jl,l)- 
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.Zn^ntJtl))*STN|ANGLE) 

0IST(3)<(R(>»in  »J2t  ll-PBHlI,J,lll*COSf  ANGLEU 
.(ZBH(  I,J2f  ll-ZBMf  I,J,lM*S1Nt  ANGLE) 

F(1»*W 

CALL  EXACT(RnRl«ZrPl«TP<EU 
Ff 2)*URR*CCSC angle  )«UZZ*SIN(ANGLE) 

CALL  PXACT|PnR2,Z0P2tTIRFl) 

F( 3I»UPP*CCS I ANGLE  I^UZZAS INI  ANGLE) 
call  FINITECl.2,3,F,CIST,0ZZ,ART,APT) 

GO  TO  no 
?00  CONTINUE 
KV*I 

NKxJCCfJE  (KV) 

C ALLCW  FOP  CTHEP  CORNER  POINTS 

KSPCE*LCCOFIKV) 

NTIMF»KCOOE(KV,l I 

CALL  FINDIKV, Jl»NK,NTIHE,KSPCF,RCR,ZORtZtW,OZZfnWR, 
.ART,TIRF) 

IF( IK.PG,2)OZ7=ART 
KV=K 

NK*JCCOEIKV) 

NTlPE^KCnOEIKV,! I 
KSPCP=LCCOE(KV) 

C FINO  PRESSURE 

CALL  FINOIKVf JI ,NK«NTIPEf KSPCEtPOPf ZORtVt ART* ART» 
.ART, ART. TINE) 
no  CONTINUE 

c integrate  compatibility  fcuations 

NK= IBCUNO-l 

GO  TO  (3CO,310,020,3AO,35C),NK 
300  CONTINUE 
r.  IBCUND=2 

XA  = SnUN'n(PHNFW,V) 

IFIROR.FO.C.)  go  TC  302 
PART«URNEW/ROR 
GO  TO  30A 
302  PART=PUPR(5) 

30A  CONTINUE 

0FLURI*-2.*(Y-PG(5))ACCNST-RHNEM*XA*XA*KAXIS* 
.PART*nELTA-PHNPW*XA*(URG(5)-UPGI 1)>UZG(4)-UZG15)  )- 
.IZ-UZGI5)  )*(-RHNEM*XA+RASm^RASIA))+2.*f 
.P(5)-RI1  )-R(4)  ) 

DELUR l=nELURl/(RHNEW*XA4RACI  l)*RACC4)) 
URNFH1»URGI5)40FLURI 
IFIPOR.EC.O. )G0  TO  306 
PART*URNEWl/ROR 
GO  TO  308 
306  PAPT*PUPfl(5) 

30B  CONTINUE 

0ELPH1*IY-PG(5) )RCQNST-RC5)*CXA*XA/t AG(5)*AGI5))-l.) 
DELPHl*nELRHl/(XA*XA) 

GO  TO  500 
310  CCNTINUF 

XA=SOL'NP(RHNEH,Y) 

IFIPOR.EC.O.)  GO  TO  312 
PART»URNEW/ROR 
GO  TO  316 
312  PART-PURRI5) 
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314  CONTINUE  . _ 

OFUmi«-2.*fY-PG(5n*CCNST-RMNeM*XA*XA*KAXlS* 
.PART*CHLTA-RHNFW*X«*(URGO)-URG<9)4>UZG<4|-UZG(5n- 
. f Z-UZG(5n«(-RHNEW«XA4RASO)4>RASf4n4?.*IRf  51- 
.R(3|-R(4)l 

DELURl«nELURl/(-RHNEW*XA4RAC(3|4RAC<4n 
URNEWI«URG(5|40ELUR1 
IFtPOR.EQ.C.lGO  TO  316 
PART*URNEMl/ROR 
GO  TO  318 
316  PARTxPUPR(K) 

318  CONTI^UE 

0ELPHl.(Y-PG<5n*CCNST-P|5l*(XA*XA/C  AGI5l*AC(5»)-l.l 
OElPHl»OELPHl/(XA*XAl 
SCO  rONTIMJE 

PHKEWI*«H0G<5140ELRH1 
URNEWlxOELURl4URGC5l 
IFMTEST.NE.II  go  to  510 
1TEST*2 
GO  TP  520 
510  RATIO*. 01 

1F(A8S(URNEWi.GT.Q.)RATI0«ABSf  fURNEMl-URNEWl/URNEWI 
IF(RATIO.GT.TOLIGCT0520 

IF(ABSnRHKEWl-RHNEWI/RHNEW).GT.TOLIGnTO520 

Nr.0LNT«2 

KK«1 

520  IIRNEW*(JPNE«1 
RHNEUxRHNEMl 
PNEW-Y 
UZNEW»Z 

ANEk«SCUNO(RHNEW«PNEMl 
IFIKPRINT.GT.OI  CALL  PRINT 
RETURN 
320  CONTINUE 
340  XA»SOUNn<RHNEW,PP| 

IFIROR.EQ.O.IGQ  TO  342 
PART»PURR(5I 
GO  TO  344 
342  PARTxCZZ 
344  CONTINUE 

0ELRH1«( 2. *f  PP-PGC5I14CCNST4 
• .5«fRHNEN*XA4RACm4RAC(4)}4fW-URGf5)  )4 
..5*PHNEW*XAP(UZG<4l-UZGf5|4URG!51-URGm  )♦ 
..5*I-RHNFW*XA4RASI ll4RAS(4ll*f Z-UZGI5I14 
. .5*RHNEWPXA*XAPKAX IS*PARTA0ELTA4 
.Rm4Rf4l-XA*XA*RI5l/f  AGf  5l*AGC5m/(XA*XAI 
RHNFW1*DELRH14RH0G(5) 

620  IFIITEST.NE.llGO  TC  600 
ITEST«2 
GO  TO  610 

600  1F(ABSI(RHNEM1-RHNEWI/RHNEW1.GT.T0L1G0T0610 
NC0UNT«2 
KK«1 

610  RHNEHxRHNEWl 
PNEW-PP 
URNEHxW 
UZNEW«Z 

ANFh-SCUNO(RHNEUtPNEWl 
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ifjkprint.gt.oicau  print  _ _ 

RETURN 

350  XA»SOUNniRHNEW»PP| 

IFCPOR.EQ.C.I  GO  TC  352 
PART«V</ROR 
GO  TO  354 
352  P&RT«PUPP(5) 

354  CONTINUE 

0EIPH1*I2,*(PP-PG(5» )*C0NST4 
. .5*(-RHNEW*XA^RAC(  3URACI4II*CW-URGI5IK 
..5*PHNEW*XA*(URGm*UZGC4l-UZG|5l-URGI5l)«- 
..5*(-RHNEW*XA*RAS(31»PAS(4»|*CZ-U2G!5n- 
.XA*XA*R(5)/(  AG(5)«AG(Sn«R(3URI4U 
. .5*PHNEW*XA*XA*KAXISPPARTP0ELTAI/IXA*XA» 
PHNEWl*0ELRHlfPH0GC5l 
GO  TO  620 
END 
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c 

r. 


c 


r. 

1 10 


c 

120 


130 

C 

C 


C 

C 

300 


C 


SUBPOUTTNf:CnRNPT(I,J,CONSTtKAXIStTIME,DELTA«KPRINTtIBOUNDI 

PTAIKAXIS 

COHMQN  PM ( 25*25) tZMf 29,251, Pf2S,25*2l»A(25«25t2l«RHOI 25. 25»2)« 

• UP  (25,25,2  ), UZ125, 25*2), NOR, HOZ,RBM(  10, 30*2), ZBMn0*30f 2), 
.RP(10,21,21,ZB(10,21,2),THPTA(10,30,2),PB(10,30,2),AB(10,30,2), 
.PHnB(10,30,2),URB(lO,30,2l,UZB(10,30,2),NACTVE(25,25),N0DD(25,25l, 
.NBACm0,30,2),NBQDDn0,30,2l,ITYPE(  10,30,2)  , INUMf  10,30,2)  , 
.IPPT(10),IAXES(10,30) 

COMMON /OAT A/ 1 TEST, NBP.WIOTM, ANCLE 

COMMON/BOUNO/JCnOEt 10) *KCODE( 10,3) ,LCODE( 10) ,MCODE( 10)  , 

.BTIMEf  10,20,3),6r.ON(10,20,20),BSPCE(  10,20),ACON(  10,20,20), 
,Cf0N(10,20,20) 

COMMnN/PLANF/UPG(5),U2G(5),PG(5),RHOC(5),RG(5),ZG(5), 

.AG(5 ),PNFW,RHNEW, ANEW, URNEW,UZNEH, RAP, ZAP, 

,PNFW,7NFW 

THF  PURPOSE  OF  THIS  SUBROUTINF  IS  TO  tOMPUTF  THE  PROPERTIES 

AT  A CORNER  POINT 

IN0EX»0 

fTcsTxl 

IF(NBACT(T ,J, 2). FO.O) RETURN 
ANGLE«THETA( I,J,1) 

RNFW«RBM(  I,  J,  1 ) 

ZNFW>ZBM(I,J,1) 

SET  AOJOINING  BOUNDARY 
KNT*1 

TF(LBPT(I).F0,J)KNT«2 
GO  TO(110,120),KNT 
FIRST  CORNER  POINT  ON  BOUNDARY 
K*r-1 

tF(K.LT,l)K»NPP 

IR»ITYPFCI,J>1,1) 

GO  TO  130 

SFCONO  CORNER  POINT  ON  BOUNDARY 
K*I+1 

IF(K.GT.NBP)K»1 
IP.TTYPFI I,J-I,1) 

CONTINUE 

SFT  CHARACTERISTIC  LIMIT 

SFT  UP  CORNER  DOMAIN  POINTS 

CALL  CNRBn(I,J,K,IflOUND,KNT,PHl,BETA) 

IFIKPRINT.EO.DCAILPRINT 

DETERMINE  OERIVATIVFS  AT  DOMAIN  POINTS 

CALL  PREPRS(2,TDUM,I0UM,PHI,BFTA,KNT| 

GUESS  AT  PROPERTIES 
CALL  GUESS (1, I, J) 

CONTINUE 

CALL  INTEG(I,J,OELTA) 

CALL  PHYCHRf IB0UND,DFLTA) 

INTERPOLATF  FOR  PROPERTIES 
CALL  INPROPf IB,IBOUND) 

CALL  CONVRT(IBOUNO) 

NCOUNT-1 

CALL  CORCOM(IBOUND,TIME, DELTA, KAXIS, CONST, NCOUNT, 

.KPRINT,I,J) 

INDEX*  INOEX+1 
IFdNDEX.LT. 25)60  TO  1010 
WRITEI6, 8700)1, J 
CALL  PRINT 
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CAIL  EXIT 

lom  IE (NCoiJNT.EO.i icn  Tn  300 

TTFST»l 

r STORE  PROPERTIES  IN  NEW  TIME  PLANE 

«»BntJf2l«PNEW 
RHOBn,J,2I»RHNFW 

URBII,  J,2)«URNFN*CnSUNGLEI-UZNEW*SINIANf.LEI 
t)ZBn»J»2)*UBNEW*SIN(ANGLF|*UZNrW*cnS(ANGLF| 

ABII  ♦Jf2)*!>OUNOIRHNFW,PNFW» 

OBM(  I,  J,2»*RNEW 
7BMII, J,2).ZNEW 
RETURN 

R7nn  eormatum  ,3iHPPnr,PAM  looping  at  copnfr  point. I2t 

.IH,. 12) 

ENO 
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SUBROIJTINF  nFPTVF(RPn,ZPn,imDtUZDtAntDURRtOUZRt 
.DAP«OllRZ,OUZZ»OAZt  lAXIStALPHA.BETA) 

0 T MFNS ION  PPO  f 11 1 ZPOf 1 1 ,UROt 1 » tUZDf 1 ) • AOf 1 ) ,OURR ( 1 1 tDUZP 11 ) » 
.nAR(ll,miPZ(ll  ,OUZZm«OAZmt0tSTI15l«PURRf  l5l,PUZRn5l,PAR(15) 

C THF  PURPOSE  OF  THIS  SUBROUTINE  IS  TO  THE  DOMAIN 

r oerivativfs 

GO  TO  mo, 150, no,l70l  .TAXIS 
C CONSIDER  POSITIVE  R INTERSECTION 

r COMPUTE  DERIVATIVES  IN  THE  R DIRECTIONS  FIRST 

110  nn  112  R«7,10,3 

Kl*K+l 

K2*K+?  { 

C.HL  FINITE(K,Kl,K2,Mon,RP0,0URRlKl,miRR(Kn,0URP(K?n 
CALI  PtNIT<^(K,Kl,K2,UZn,RPD,0lfZR(K),nuZR(Kl),DUZPfKZM  j 

112  CALI  FTNITE(K,Kl,K2,AO,RPn,nARfK),DAPfKn,DAP(K2|)  \ 

C COMOUTF  P "RIME  DERIVATIVES 

CALL  RPRIMP(niST,PPn,ZPn,PURR,PUZR,PAP,URD,UZD,AD» 

C CPMPUTP  OPPIVATIVFS  ON  BOUNDARY  WITH  LAGRANGE 

nisT(Ai*soPT  I cppni6»-Rpnnn*R2^iz»D(6i-zpD(  in**2) 

CALL  I AG0NF(2,6,3,llRn,0IST,APT,PURRl6l  ,APTI 
CALL  LAGRNE(2,6,3,U7D,0IST,ART,PUZRIB» .ART) 

CALL  LAGPNE(2,6,T,A0,0IST,ART,PARI6) ,APT) 

C COMPUTP  uneven  R DEOIVATIVES  with  LAGRANGE 

CALL  LAGPNE(A,5,&,UPn,RP0,0URRU),DURP  (5),DURRI6)I 
CALL  I AGPNE(A,5,6,U?n,RPn,DUZRU),0UZP(5),nUZR(B)l 
CALI  LAGRNEIA,5,6,A0,PPD,DAR|4),DARt5) ,DAR(6) ) 

C COMPUTE  AXIAL  DFRIVATIVES 

no  116  K«4,5 
Kl»K*3 
K2*K>6 

CALI  FINITF(K,Kl,K2,URn,ZPO,DORZlK),DURZCKl),nURZ(X2) ) 

CALL  FINITFIK.KI ,K2 , UZO,  ZPD, DUZZ CX I , DUZZ ( Xl ) , DUZZIX2 ) ) 

116  CALL  FINITF(K,Kl,K2,An,ZPO,DAZfX),nAZfKl),OAZlK2)) 

r COMPUTE  UNEVEN  DERIVATIVES  WITH  LAGRANGE 

DO  llfl  K*l,2 
KlxKfl 
K2=K+6 

CALL  LAGPNF|K,K1,K2,UR0,7PD,DURZ(K),ART,ART) 

CALL  I AGRNF(K,K1,K2,UZ0,ZPD,0UZZIK),ART,APT) 
tlR  CALL  LAGRNFfK,Xl,K2,An,ZPD,DAZtKl,APT,ART) 

CALL  LAGRNF(3,o,12,URD,ZPD,DURZf3l,DURZf9),DURZ( 12) ) 

CALL  LAGPNFI3,9,12,UZ0,Z»D,DUZZf3),DUZZfR),0U2Z( 12)) 

CALL  LAGRNF(3,9,12, A0,ZPD,DAZI3),DAZf9),DAZ(  121) 

C.  DETERMINE  REMAINING  DERIVATIVES  FROM  R PRIME  AND  Z | 

on  120  K*l,3  ■ 

DURR  IK )*f PURR (K ) -DURZ (K )«BETA IZALPHA 
DUZR(K)*(PIJZRIK)-DUZZ(K)*BFTA)/ALPHA 
120  DAP(K)*CPAR(K)-0A7(K)*BETA)/ALPHA 

DURZI6)*IPURRI6)-DURR  C6)*ALPHA)/BETA 
DUZZ(6)>(PUZR(6)-DUZR(6)*ALPHA)/BETA 
nAZ(6)»(PARC6)-DARf6)*ALPHA)/BETA 
RETURN 

C FIND  DERIVATIVES  WHEN  ROW  JK  DOES  NOT  INTERSECT 

C POSITIVE  R PRIME  AXIS 

130  CONTINUE  | 

C COMPUTE  R PRIME  DERIVATIVES  I 

CALL  RPRIMEiniST,RPO,ZPO,PURR,PUZR,PAR,URO,UZO,AO)  | 

C COMPUTE  R DERIVATIVES  I 

103  I 
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00  132  K»4,10,3 

K1«K^1 

K2»K4-2 

CALL  FTNTTE(KtKl,K2,UI»OtRPOtDUIIRtKt«OURRfKll«OURRfK2l  ) 
CALL  FrNTTF(K,Kl,K2,UZD»RPO,OUZRfKl«nUZR(Kll,OUZR(K2n 
137  CALL  FINITr(K,K1tK2,A0«RP0t0AR(KltDARlKl),DAR(K2)) 

C COMPUTE  7.  HER  I VAT  IVES 

no  136  K»A,6 
K1«K4>3 
K2«K^6 

CALL  FfNITF(K,Kl,K2,URn,ZP0,0URZtKI,nURZlKn  ,OOPZ(K2l  I 
CALL  FTNITF(K,Kl,K2fUZ0,7Pn,nUZZCKl,DUZZ(Kll,nUZZ(K2n 
136  CALL  FIMITF|K,Kl,K2,AO,ZPn,OAZtKlfnAZlKl)(OAZ(K2n 
C COMPUTE  UNFVFN  OFRIVATIVES  IN  Z OIRECTION 
no  13R  K«l*3 
KlrK^3 
K2=K*6 

CALL  L ACRNE(K,KltK7*URn,ZP0t0URZ(Kt  t ART,APT) 

CAIL  LAC.PNF(K,Kl,K?,UZn,ZPn,DUZZlKl,ART,  ART! 

13P  CALL  L AGRNF(K«Kl,K2«ADtZPOtOAZ(KI«ART,ART) 
r COMPUTE  P OFPT VAT  IVES  FROM  R PRIME  ANO  Z 

no  140  K«1  ,3 

nuPP (K1*IPUPP IKl-OUPZ(K|PRETA»/ALPHA 
nuZP  IK)<(PIJZR(Kl<nUZZIKI*RETA}/ALPMA 
140  ^ARlKl«(OAR|K)-nAZCKl*RFTAI/ALPHA 
PCTURN 

C COMSIOEP  NEGATIVE  P PRIME  INTERSECTION 

ISO  CONTINUE 

C COMPUTE  R PRIMF  OFRIVATIVES 

CALI  RPPfMF(niSTfPPn,ZPOfPURR.PUZR*PAR,llRO,UZO,AO) 

C COMPUTE  DERIVATIVE  ON  BOUNDARY  WITH  LAGRANGE 

rTSTI4l*S0RT<  (PPOUl-RPOf  U)**2«'IZP0(4l-ZPDf  in**?) 
CALL  L AGRNF<4.2,3,URn,niSTf PURR  141* ART, ART) 

CALL  LAGRNE(4,2,3,UZn,0IST,PUZRl4),ART,ART) 

CALL  LAGRNPU,?,3,An,0IST,PAR(4),ART,ART) 

C COMPUTE  0 nERIVATIVES 

no  152  K.7,10,3 
Kl*K+l 
K2*K42 

CALL  F TNI TF(K,Kl,K2,UP0,RPn, DURR  IK), DURR  IK  1), DURR (K2  ) ) 
CALL  FlN!TElK,Kl,K7,UZD,PPn,0UZR(KI,0UZRIKl),DllZR(K2)) 
152  CALL  FINITE(K,KlfK?,An,RPn,nARfK)vOARfKl)fDAR(K2)) 

C.  COMPUTE  UNEVEN  P DERIVATIVE 

CALL  L AGRNE(4,5,6,URn,P.Pn,0URRI4),nURRC5),0URR(6) ) 

CALL  LAGRNFf4,5,6,UZn,RPf),nUZRI4),nUZRI5),DUZR(6)) 

CALL  LAGRNFI4,5,6,A0fPPn,0AR(4),DARf 5) ,0AR(6)) 

C COMPUTE  Z DERIVATIVES 

on  156  K»5,6 
K1«K*3 
K2*m*6 

CALL  FlNITF|K,Kl,K2,UR0,ZPn,miRZfK),nURZfKl),0URZ«K2)  ) 
CALL  FINTTF(K,Kl,K2,UZD,ZPn,0UZZfK),DUZZCKl),DUZZ(K2)) 
156  CALL  FTNITE(K,Kl,K2tA0,ZP0,0AZIK)«DAZ(Kl),DAZ(K2)) 

C COMPUTE  UNFVEN  Z DERIVATIVES 

CALL  LAGPNF(l,7,lO,URO,ZPO,OOPZCl),DURZC7) ,OURZC 10) ) 
CALL  lAGRNE(lt7,10,UZn,ZPD,nuZZfl)fDUZZI7),DUZZ( 10) ) 
CALL  LAGPNE(l,7,10,AO,ZPO,OAZf  l),DAZf7),DAZU0)) 
on  158  K«2,3 
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Kl-Kt3 

K2>K4^6 

CALL  I AGRNEtK«Kl,K2tUttO«ZPD*OURZfK)fART«ARTt 
CALL  LAGRNE<K,Kl,K2*UZ0,ZP0»0UZZlKlfART*ARTl 
15G  CALL  LAGRNF(K,KltK2tADtZPf)tDAZfK)fART«ART) 

C COMPUTE  RFMATNING  OERiVATfVES  FROM  P«R-PRfMEtZ 
no  160  K»l,3 

nURR(K)«(PURR(k)-OliRZ(K)*SETAl/ALPHA 
nuZR IKI«IPU2R(K|-0U7Z(KI*BETAI/ALPHA 
160  OAR(K)*(PAR(K)-nAZtFI*AFTAl/ALPHA 

nURZ(4)«(PURR(41-0URRf4l«ALPHAI/BETA 
0UZZf4)-fPUZP(4l-0UZR(4l*ALPHAl/BETA 
0A7f4)»(PARJ4|-nAR|41*ALPHAI/BFTA 
RETURN 

FINO  nEPIVATIVES  WHFN  ROW  JK  DOES  NOT  INTERSECT 
NEGATIVE  R PRIME  AXIS 
170  CONTINUE 
C COMPUTE  R PRIME  OERIVATIVES 

CALL  RPRIHE(niST,RPn,ZPn,PURR«PUZR«PAR,URO»UZO»AOI 
C COMPUTE  R DERIVATIVES 

no  172  K*4.10.3 
K1«K^1 
K2«K^2 

CALL  EINITE(K»Kl,K2tUR0fRPD»DURRfK) tOURP IKII t0URR(K2) I 
CALL  EINITE(K«Kl »K2 ,UZO,RPD*DUZR(K  I , OUZR IK  I ) , OUZR (K2 1 ) 
172  CALL  FINITF<K,Kl,K2#An,RPn,0APfK»,nARIKl),DAR(K2n 
C COMPUTE  Z DERIVATIVES 

no  176  K*4.6 
Kl«K+3 
K2«K*6 

CALL  FINITE (K,Kl,K2fURO,ZPn,DURZ(KltDURZ(Kl)tOURZ(K2)) 
CALL  EINITE<K,Kt,K2,UZO,ZPO,OUZZIK)«DUZZCKn,DUZZfK2)  ) 
176  CALL  EINITE(K,Kl»K2fA0»ZPD,0AZfK),0AZ(Kl)t0AZ(K2n 
C COMPUTE  UNEVEN  OERIVATIVES  IN  Z DIRECTION 

DO  178  K«lt3 
Kl*K+3 
K2»K+6 

CALL  LAGRNE(K,Kl,K2tURD»ZPD»0URZfK)t ART,ARTI 
CALL  LAGRNE(K,K1,K2«UZ0,ZPD«DUZZ(K)»ART,ART) 

178  CALL  LAGRNE(K,Kl,K2,ADtZP0«DAZIK) »ART»ART} 

C COMPUTE  R DERIVATIVES  FROM  R PRIME  AND  Z 
DO  180  K«l,3 

DURR(KJ*(PUPP  IKJ-OURZIKIRBETAMALPHA 
DUZR(K)«(PU>» (KI-0UZZIKI4BETAI/ALPHA 
180  0AR(KI»IPARIK J-OAZ(Kl*BETA»/ALPHA 
RETURN 
END 
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simpnuTiNE  orfRn<i,j» 

rnMMnN/DERIV/nURR(15)tnUR7f IStfOUZPf  l5)fOUZZf 15»t 
.nAR(  15),nAZn5» 

COMMON /nnHAIN/RPO(  15)  »ZPD(  15)  tPOf  151 « AO(  15)  t RHODU5)  t 
• t)RD(  15)«UZO(  15)fLSUB(15) 

COMMON  RMf25«25)«ZM(25,25)tP(25«25*2)tA(25t25»2)«RHOf 25f25«2)t 
.np(25,25f2)fl>Z(25,25t2)tNOR»NOZtPBM(10t30»2)  tZBMnOt?0»2)« 
.PB(1O,21,2),ZRn0,21«2)tTHETAf  l0»3O*2)fPBIlO«3O,2)tAB(lOt3O*2)* 

. PHOR ( 1 0,30,2 1 1 UPR 1 10« 30(2) tUZBfl0«3O«2) fNACTVEI 25(25 ),NOOD(25»25)» 
.NBArT(lO,30,?),NBOOOf lO, 30, 2 ) , ITYPB (10, 30f 21  , INUM( 10,30,21, 
.LPPT(10),IAXF5;(10,30) 

COMMON/nATA/|TFST,NBP,WIOTH,ANGLE 
PI*3. IA15026535RPR 

C THF  PUPPOSF  OF  THIS  SUBROUTINE  IS  TO  EVALUATE  THE  DOMAIN 

C OFRIVATIVFS 

Nr.OOE*ITVPF(  I,.l,l  ) 

on  Tnnoo,ioo),NCcioE 
100  CONTINUP 

C CnNSIOEP  VERTICAL  INTERSFCTTON 

IAX(S«TAXES(I,J) 

ALPMAxCOSI ANGLE) 

BETAxSINfANGLFI 

CALL  nEOTVE(PPn,7PO,URO,UZO,An,OURR,OUZR,DAR,DUPZ, 

.niiZZ,0A7,MXTS,  ALPHA,  BETA) 

PFTlfPN 

C COMPUTE  HOOIZCNTAL  INTERSECTION 
300  CONTINUE 

I AXTS*IAXFS( T,J) 

ALPHAxSINI  ANGLE) 
nFTA*CnS( ANGLE) 

CALI  nFPTVF(ZPn,9,PO,URO,UZP,AO,OUPZ,nUZZ,nAZ, 

.OURP.DUZR, OAR, (AXIS, ALPHA, BET  A) 

RETURN 

FNO 
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SUBPCL'^INE  DIFFER 

CCMRON/OER TV/DURR  ( 15t •OURZIlSI »OUZR( 15)«DUZZf 15) t 
.OAR(l5)f DAZ(15) 

CCKFOA/DGMAIN/RPD(  15)«ZPC(15),PDIl5)tAD(l5)fRH00(  15) t 
.URO(15)»UZn( 15)fLSURf 15) 

C CCHPUTE  RACIAL  DERIVATIVES  FIRST 

DO  100  K»l,3 
Kl«K4>3 
K2»K*6 

CALI  FtNITE(K«Kl,K2tUROfRPOtOURRfK)«OURRIKl)»OURR(K2) ) 
CALL  FINITE(K,Kl,K2«UZD»RPD«OUZRlK)tOUZR(Kl) tOUZRCK2)) 
CALL  FINITE(K,Kl,K2tA0«RP0tDARCK)*0AR(Kl) ,DARf K2) ) 

100  CONTINUE 

C COMPUTE  AXIAL  DERIVATIVES 

no  200  K«l,7,3 
Kl*K+l 
K2*K+2 

CALL  FINITE(K,Kl«K2«URO*ZPD«DURZ(K)tOURZIKl),OURZ(K2)) 
CALL  FINITE(KtKl,K2tUZCfZP0«DUZZ(K)t0UZZ(Kl)«0UZZ(K2) ) 
CALL  FINITEIK,KUK2«A0«ZP0,DAZIK)(DAZ(K1)  .DAZIKZ)  ) 

200  CONTINUE 
RETURN 
ENO 
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SUBPOUTINE  EXACT|R,Z,TIME) 
r THIS  ROUTINE  COMPUTES  BLAST  HAVE  SOLUTION 

DOUBLE  PRECISION  VINITtA«BtCtFfFltE2fVltV2tOELTAtTOL 
COMMON/ST  ATE/PRESSf  RMOUAINIT/EXT/UR#U2, PRAT, RRAT.AA 
DATA  ENERGY/1.54826A9E406/,GAMNA/1.4/ 

OUAN«ENERGV/RH01 
XS*SQRTCSCRT(OUANI I*SORT|TIMEI 
US=SORTfOUANI/((GAHMA4l.»*XS» 

USA»US/AINIT 

PR»FNERGY/ (2 .♦! GAMHA^l , | <XS*XS*PRESS I 
ALPHA*ATAK2CZ,R| 

X*SCRT(f R*A2)+(ZEE2I»/XS 
VINIT*lO.OCOP00100/2B.OnO 
TOL»0.5n-6 
nELTA*l.0D-4 
1*0 
J=l 

120  A*12.COO*VIMIT/5.0DO 

R«(e4.0nO*VINIT-3.CDH/5.000 

C*2.4C0*(1.0DQ-l.A00*VINIT| 

F*( (P**C  1. 000/7. OnC))/nSQRTIA*CI l-X 
CO  TO  1200, 210, 2201, J 
200  FI-*- 

Vl-VIN  IT 
F3-FI 

SIl*Sir,NI  1..F3I 
GO  TO  230 
210  F2*F 

V2*VIMT 

F3-F2 

SI2=SIGN(l.,F3) 

IFICABSI FI.LE.TOLIGOTOllO 
IF(SI1.NE.SI2I  GO  TO  220 
F1-F2 
VI-V2 
230  J-2 

VINIT-VINIT+OELTA 

IF(VINIT.LF.n0.0D0/24.0D0IIGOTOl20 
PR  I FT  I 

1 FORMAT  (•  •••  FAILURE  CF  EXACT  SOLUTION 
STOP 

220  IFICAESIFI.LE.TCLIGOTGllO 
DELTA»nELTA/2.0nO 
VINIT-VINIT-DELTA 
I*I*t 

IF( I.GE.25IG0  TO  llO 
GO  TO  120 
110  CCNTIN'UE 

130  OENSTY*(8**C5./7.ll*<  C6.-l2.PVINIT»**C-lO./3.  n*CCE*(  10. /3.  ) ) 
URATIC*2.A*VINIT*X 

PRATIC*A*|  (6.-l2.*VINIT|*P(-7./3.n*IC**C7./3.l» 

UR*UR ATI ORLSA*rnSI ALPHA) 

UZ-UR ATI 0*USA*SINI ALPHA) 

PRAT*PRATIC*PR 
RRAT-6.0*DENSTY 
AA-SQRTI PRAT/PRAT) 

RETURN 

FND 
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SUBPOUTINEFINO(KVtKK,NKtNTIME«KSPCEiRORfZOZtYtWtDZZtOWRtARTtTIHE) 
COMMON  RM<2>),25),ZMI25,25l,P(25f29»2)tA(25f25»2)»RHO(25(25.2), 

•UR( 25,25f2),UZ(25t25«2|«NCR,NOZtRBH(l0t30»2lfZBM(lO.30t2}t 
.RB(  10*21  «2I,ZD(  10,21 ,2)  •THETA410»30,2)tPB(l0,30t  21  »ABU0f30»2l« 
.RHORn0,30,2),URBf  10*30*2  l*UZB(l0t30,2l  *NACTVE(  25*25)  *NODO(  25, 25), 
.NBACT(10*30*2)*NB00Df 10*30*2), ITVPEI 10*30*2)  * INUH(  10,30*2), 
.LRPT(10)*IAXESfl0,30) 

COMMON/BnUNO/JCOOEdO)  *KC0DFI10*3)*LC00E(10)*MCOOE(10)* 

. BT IME (10 *20* 3) *nCON(  10*20*20) *BSPCE( 10*20),  ACON(  10*20,20) * 
.CCONn0*20*20) 

COMMON/O AT A/ITEST,NBP*h TOTH* ANGLE 
COMMON/ALPHA/HW 

DIMENSION  VC0N(20)  *XCrN(20)*ZC0N(20)*HC0N(20) *VCON(20)* 

• F ( 3 ) * XY( 3) *UCCN(  20) * SCONf  20) 

C INTFRFCLATF  BCUNCARY  CONDITIONS 

FTA=ATAN2(IZB(KV*KSPCE*1)-ZB|KV*1*1) )* 
.(RB(KV*KSPCF*ll-RB(KV,l*im 
IF( (ZCR.FQ.ZB(KV*1*1) ) .ANO.IROR.EQ.RBfKV* 1*  I ) ) ) 

.GO  TO  10 

XI«ATAN2((ZnR>ZB(KV*l*l))*(R0R-RB(KV*l*im 

n I ST* SORT ( (ROR-RBIKV* 1,1) )**2^(2nR-ZBCKV,l,  1) )**2I 

DIST*OIST*COS(XI-ETA) 

GO  TO  20 
10  niST»C. 

20  lF(NTIMF.FO.O)Gn  TC  IOC 
on  110  J»1*K$PCF 
DO  120  I*1*NTIME 
YCOM  I)«BCCN(KV*J*  I) 

120  XCOK( I)*BTIME(KV*I,1) 

CALL  INTEPP(YCCN*XC0N*ZC0MJ)*TIME*NTIME*3) 

110  CONTINUE 

00  130  l*l,KSPCE 
130  XCOMI)*eSPCE(KV*n 

CALL  INTERP(ZCON*XCON,OMY*01ST*KSPCE*3) 

GO  T0(132*13A*134*13A*134*134*136)*NK 
132  Y=0MY 
PFTURN 
134  Y*DMY 

WW«THETMKV*KK*1) 

RETURN 
136  Y«DPY 
300  CONTINUE 

KTIHE*KC00E(KV,2) 

IFCKTI“E.FC.O)GO  TC  310 
DO  312  J*1,KSPCF 
DO  314  I«1*KTIME 
WCOK( I)«ACCN(KV,J* I) 

314  XCON(  n-BTIME(XV*I*2) 

CALL  INTERP(WC0N*XCQN*VC0N(J),TIME*KTIME,3) 

312  CONTINUE 

00  315  I«1*KSPCE 

315  XCOM  I)»BSPCE(KV*I) 

316  CONTINUE 

CALL  INTERP(VCCN*XC0N*N*0IST,KSPCE*3) 

KTIME*KCCDEIKV,3) 

IF(KTIME.EC.O)GO  TC  330 
DO  320  J*1,KSPCE 
DO  322  I«1*KTIME 
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UCON(II>CCCN(KVtJ«n 
322  XCONC  n-BTIME(KV,  I ,31 

TALL  INTERP(UC0N,XC0N,SC0N(J),TIME,KTIH^,3) 
320  CflNTINUF 

00  32^  I-UKSPCE 
324  XCCN( I)>BSPCE(KV,  I ) 

326  CONTINUE 

CALL  INTERP(SCON,XCON,Y,OIST,KSPCE,3I 
IF(Y.LT.O. IY»0. 

C DETFRPINF  DERIVATIVE 

XZlxZeHlKV,KK-I,lI-ZBIKV,l,n 

XRl  = RPM(KV,KK-l, I I-RBCKV, 1,11 

TF(  (XZl.EQ.O.I.AND.IXRl.EG.O.l  )G0  TO  510 

0ISTI»S0RTIXZ1**2*XR1**2I 

XI1*ATAN2IXZ1,XR1) 

GO  TO  512 
510  CONTIMIF 
DIST1*0. 

XI  1=FTA 
512  CONTINUE 

XZ2*ZEMCKV,KK+1,1  )-ZBIKV,l,ll 
XR2«RBM(KV,KK>1,1)-RB(KV,1,1) 

IFUXZ2.EQ.0.)  .ANO.fXRZ.EQ.O.nGC  TO  520 
01 ST2»S0RT (XZ2**74XR2**2I 
XI2*ATAN2( XZ2,XR21 
GO  TO  522 
520  CONTINUE 
DIST2»0. 

XI2*«=TA 
52?  CONTINUE 

OlSTl*OISTl*COS«XI 1-ETAI 
OIST2«niST2*COS(XI2-ETAI 
X73*ZP»»(KV,KK,ll-Ze(KV,l,ll 
XR3*RRM(KV,KK, ll-RB|KV,l,l) 

XI3*ATAN2f XZ3,XR3) 

DIST3*S0RTIXR3**2+XZ3**2I 

DIST3»OIST3*COS«XI3-ETAI 

CALL  lNTFRP(VCON,XCON,M2,niST3,KSPCE,3) 

CALL  INTERP(ZCCN,XC0N,X2,0IST3,KSPCE,3I 
CALL  INTERPfVCON,XCON,Hl,OI$Tl,KSPCE,3) 

CALL  INTEflPCVC0N,XC0N,W3,CIST2,KSPCE,3» 

CALL  INTER PfZCrN,XC0N,Xl,DISTl,KSPCE,3) 

CALL  TNTERP(ZC0N,XC0N,X3,DIST2,KSPCE,3) 

FI  I )*X1 
F(2I*X2 
FI31-X3 

XZ1«7EP(KV,KK,1)-ZI!M(KV,KK-I,1} 
XR1*R9MIKV,KK, 1 )-R  BHI KV,KK-1 , 1| 
XZ2*Z»>M(KV,KK4l,l)-ZBMfKV,KK-l,lI 
XR2«RBMf KV,KK>l,l)-RBMfKV,KK>l ,1 ) 

XYI 1)»0. 

XYI2»*SQPT(XZI**2+XR1**2J 
XYI 3I«S0RTIXZ2**24XR2**2I 
CALL  LAGRNE(1,2,3,F,XY,DZZ,0WR,DXX) 

RETURN 

100  no  200  I»1,KSPCE 

ZCGNI  II«BCCN(KVf  1,1) 

200  XCON(n«BSPCE(KV,I) 


no 


210 


CALL  INTERP(ZCCM.XC0N«DMVt0ISTtKSPCEt3). 
GO  Tni210t212f212«212«212.212t214t»NK 
Y-DPY 
RETURN 
212  Z-OMY 

WW>THETA|KVtKK,n 
RETURN 
214  X-OHV 

GO  TO  300 
310  CONTINUE 

00  400  I«lfKSPCE 
VCOM  n*ACCN(KV(T«  II 
400  XCOM  II»nSPCE(KV,I  I 
GO  TO  316 
330  CONTINUE 

DO  410  I*1,KSPCE 
SCOM  I)«CCCN(KV,I,ll 
410  XCOMII-BSPCE(KV,I  I 
GO  TO  326 
ENO 


SUBROUTINE  FINITE (LtH•^•PROPtXtPPL•PPHtPPN) 

PI  PENSION  PR0P<ll»Xll|,F(3l,0ELFOltD0Ff  1},YI3) 
C SET  UP  DIFFERENCE  TABLE 
EUI»PPOPf  U 
F<2)^PROPf M) 

F(3)»PPnPIM 

Y(l)»X(U 

Y12»*X(M) 

Y(3)»X(N| 

DELEI 1I*F( 2I-F(1) 

OELFI ?I«FI 3)-F(2» 

DDFIl )*OELF(2)-OELFIll 
H=Y(2I-Y( 1 ) 

C FORWARD  DIFFERENTIATIDN 

PPL*(DFLF( l)-.5*nDF(l I )/H 
r.  CENTRAL  DIFFEPFNTI  ATICN 

PPPx(DFLFI  l)»OELFC  2n/(2.*HI 
C BACKWARD  DIFF, 

PPNxIDELFI  2)«-.5*nOF(  1 ) »/H 

PFTURN 

END 


*’IJNCTION  PLAGPE(F,Y,YIND» 

DIMENSION  Pm,Y(lI 

C THIS  function  COMPUTFS  THE  LAGRANGE  DFRIVATIVE 
A=Y( I J-YI2I 
B*Y(  D-YI3I 
r*Y(2J-Y(3l 

FLAGPE*(2.*YINn-Y(2)-Y(3n*Fm/f  A*B  I- 
,(2.*YINO-Ym-Y(3l  )»FI2)/U*CK 
.I2.*YINO-Y(l  )-Y(2n*^(3)/(B*ri 
P.ETIIRN 
END 
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SUBROUTINE  GFNCOR | I , J*CONST,KAXIS#TINEiDELTA,KPRINT| 

RFALKAXI S 

CCHFCN  RP(25,25l,ZF(25,25|,P(2St25f2|»Af25f25t2l»RHO(25t25f2l , 
.UP(2;,25,2l«UZC25«25.2l*NGR«NOZ,RBMf l0«30t2)iZBM(10f30»2l* 

.FBI  10,21.2),ZB(10,2lt2),TPETA|10,30t2ttPB(10*30,2)fAaUO,30f2)f 
.RHOPI 10,  30»2)«URBnOt30f2l«UZB(10f30»2I*NACTVE(  25*251  ,N000(  25,25)  , 
•NBACTf lO,30,2),NBQCO(10,30«2),ITYPEf 10,30, 2) , INUHf 10,30,2), 

•LBPTI 10) , IAXES(10,30) 

CCHRCK/PLANF/URGf5),UZGf5),PG(5),RHQG(5),RGI5),ZGf 5),AGf 5), 
.PNEW,RHNEW, ANEW, URNEH,UZNEW, RAP, Z AP, RNEW, ZNEW 
CPMPCA/GEKPT/IJ, IK , I 1 , 12, Jl, J2 ,NGENI 9 ) ,XY( 3) 
COMMrN/OATA/ITFST,KBP,WIOTH,ANGLE 
C THIS  SUflPClTINE  CCPPUTES  A GENERAL  POINT 

INDEX-0 
ITFST-l 

C CHECK  IF  POINT  IS  ACTIVE  CR  ODD 
IFINACTVEII, JI.EQ.O)  GC  TO  1310 
IFINCDOn,  JI.EQ.l)  GO  TO  1310 
ANGlE-0. 

IJ-I 
IK-J 
Il-I-l 
1 2*1+1 
Jl-J-1 
J2*J+1 

RNFV*RM( I, J) 

ZNEW*ZM( I, J) 

CALL  GFNERAL(RNEH,ZNFW,IB) 

CALL  ACTVTYfKVALUE,NQACT) 

IFINrACT.GT.l)NOOnn,J)*l 
IFINOODI I, J) .EQ.l)  GO  TP  1310 
N'K*F0ACT  + 1 
GO  TnClC0,110),NK 
100  CONTINUE 
18*1 

CALL  DIFFER 
GO  TO  20C 
110  CONTINUE 

C CONSIDER  ABNORMAL  GENERAL  POINT 

CALL  ABGENf RNEW, ZNEW, IB, RVALUE,!, ETA) 

CALL  PRFPRSI 1,IB,KVALUE,ETA,BETA,I0UN) 

200  CONTINUE 
C GUESS  AT  PROPERTIES 
CALL  GUESSfO,I,J) 

1320  CONTINUE 

CALL  PHYCHRIO, DELTA) 

C INTERPOLATE  FOR  PROPERTIES 
CALL  INPP0P(IB,0) 

C INTEGRATE  COMPATIBILITY  FCUATICNS 
NCCUNT*! 

CALL  CCMPECCO, TIME, DELTA, KAXIS, CONST, NCOUNT,KPRINT) 

IN0EX»INDEX+1 

IF( INOEX.lt. 25)  GO  TO  1330 
WRITE(6,8700)I,J 
CALL  PRINT 
CALL  EXIT 

1330  IF(NCCUNT.EO.l)  GO  TO  1320 
ITEST-1 
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C STORE  PROPERTIES  IN  NEW  TIME  PUNE 
Pn,Ji2l«PNEW 
RHQII tJ»2l «RHNEW 
UR(  If  Jf2)*URNEW 
UZ(I(Jt2)«UZNEH 
M I f Jf2l*SCUNn(RHNFW»PKFWl 
1310  CONTIMJP 
RETURN 

FOPPATCIH  ,2AHPP.OGRAM  LOOPING  AT  PQI  NT  , 12  t IHf  * 12 ) 

FND 


8700 


SUBROUTINE  GENERALIRNEM.ZNEMtlBI  ... 

C THIS  SUBROUTINE  SETS  UP  THE  DOMAIN  POINTS  FOR  A GENERAL  POINT 
rOHMON/OOMAIN/RPOI 151 tZP0(l5l |P0( 15) t ADI  15) » RHOOI 15)  • 

•URO<15)«UZO( 15),LSUBf IS) 

COMMON  RM(25,25),ZM(2S,25).PC25»25t<i)tAf2Sf25f2)fRHO(25«25t2)» 

• UR(  25«25«2)tUZ(25t2St2ltNORfNOZtR8M(  10t30t2)  t ZBMI  lOt  30t2)  t 

• RBI  IO,21t2).ZBnOt2lt2)tTHETAU0t30t2)tPB(10t30f2)tAB(10t3O«2) . 

• RHOenOt  30t2)tURBf  10«30»2)  tUZBI10f30t2)  tNACTVEI25t 25)  tNODOf  25,25] 

• NBACT  no, 30,2), NSOOOf  10,30,2),  ITVPEI  10,30,2) , INUMI  10,30,2), 

.LBPT(10),IAXES(10,30) 

CQMMON/GENPT/I J,IK,I1,I2, Jl,J2,NGEN(9),XYf3) 

RPDCn-RMf  II,  J2) 

ZPOm«ZM(  II,  J2) 

P0(1)*P(  Il,J2,l) 

AOm>AI  I1,J2,  1) 

PH00(l)»RH0CIl,J2,l) 

URn(l)«UR( Il,J2,l) 

uzom*uz(  ii,j2,i) 

RPOf2)«RMnj,J2) 

ZP0(2)>ZM(  IJ,J2) 

P0I2)«P(  IJ,J2,  1) 

A0(2)*A( IJ,J2,1) 

PHOO(2)«RHC( IJ,J2,l) 

UR0(2)*UR< IJ,J2,1) 

U70{2)*U?nj,J2,l) 

RP0f3)«RM( 12, J2) 

ZP0m*ZM(T2,J2) 

PO(3)«P(I2,J2,t) 

AD(3)«A(  I2,J2,1) 

RH0CI3)*RHCII2,J2,l) 

UR0(3)>UR{ I2,J2,1) 

UZ0(3)«UZf I2,J2,1) 

RP0IA)«RMU1,IK) 

ZPnU)«ZMI  II, IK) 

P0(4)«PI Il,IK,l) 

AD(4)*Ani,IK,l) 

RH0C(4)«RH0(Il,IK,l) 

URnU)«UR(Tl,IK,l) 

UZ0(4)«UZI I1,IK,1) 

RP0t5)«RM(  IJ, IK) 

ZP0(5)«ZM(IJ,IK) 

P0fS)*Pnj,IK,l) 

AD(5)-A( IJ,IK, 1) 

RH0Df51«RH0nj,IK,l) 

UR0f5)«UR( IJ,TK,1) 

UZ0C5)«UZI IJ, IK,1) 

PP0f6)*RMn2,IK) 

ZP0(6)*ZMf 12, IK) 

PD(6)«Pf I2,IK,1) 

ADf6)»A( 12, IK, 1) 

RH00(6)«RH0f  I2,IK,1) 

UR0(6)-URf  I2,IK,1) 

UZ0I6)-UZf I2,IK,1) 

RPDf7)«RMf  II, Jl) 

ZP0f7)-ZMf  II, Jl) 

PDf7)>Pf I1,J1,I) 

A0I7)>A( Il,Jl,l) 

RH0Cf7)«RHCIIl,Jl,l) 
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UROI7l«URni*Jl,l)  _ 
UZD(7l«UZf  Il,Jl,n 
PPDI8)>RM( IJtJll 
ZP0C8t>ZM(IJ,Jll 
PDf  8I«P(  IJ,J1,U 
A0(8I-A( 1) 
RHODfet-PHCUJffJltl) 
UPDI8)>URI  IJtJlvU 
UZO(8)«UZf IJtJlf It 
RP0(9)*RM{ I2t Jit 
ZP0(9»»ZPC  I2,JU 
P0(9|«Pn2.Jl,ll 
A0(9)*A(I2fJltl) 
PHOrC9»*RHC< I2f Jl« 11 
UROI9)>IJR(I2»Jltll 
UZ0(9)*UZ(I2t Jltll 
^GE^(  l)«NACTVEni«J2t 
KGEN(2J«NACTVenj,  J2) 
NGEN(3l«NACTVFn2,  J2) 
NGEK(A)«NACTVEni.  IKI 
NGEN(5l»NACTVEnJf  IKI 
NGEN(6»*NACTVF«I2»IK) 
NGFK(7»»NACTVEni,Jll 
KGEK(6l«NACTVE(IJ*jn 
Nr,EN(9)*NACTVF(I2,  Jl) 
IB*1 

Lsuem=7 

LSUeC2)*4 

LSUe(3)*l 

LSUe(A)»8 

LSUB(6I*2 

LSUB(5I*5 

LSUR(7J«9 

LSUBI  8t«6 

LSUB(9)«3 

RETURN 

END 


FUNCTION  GRS  ( XtNnXtVtNOV, XV«NtNRANGF) 

C THIS  ROUT  INF  PERFORMS  PARABOL IC‘  INTERPOLATION 
DIHFNSION  XfNnx,3l«YINOV,3),DXf3)4nY(3),YP(2) 

OATA  nx/3*0./*0Y/3*0./,YP/2*0./ 

NRANGE*0 

IFIXV.lt. XI  l«inNRANGE«-l 
TF|XV.GT.X(l«NI)NRANGE«^i 
OOlOI»l,N 

IF  f XV-XUf  I n20«70«l0 
10  CONTTNUF 
I»N 

?n  IF ( I .GT.2IGn  TO  3C 

Nlr3 

N2«2 

N3*l 

NP*3 

GCTOS5 

30  IFfl.LT.N  ir,r  TO  40 
NP-3 
GO  TO  SO 
40  NP  = 4 
N4*I>1 
50  Nl«I-2 
N2*T-l 
N3«I 

55  0Xm  = X(l,N2)“X{  l,Nl  I 

0YCn«Yf  l*N?l-YM,Nl) 

0X(2t«X( 1,N3}>XI l»N2) 

DYI2}*Y(1,N31-YCI,N2) 

R«(XV-XU*N2n/OXI 

VPm*(0Y<  1 1 *0X1  2)**?*OYI2l*OXf  n**2  l/IDXI  11*10X11  »4DXI2m 
IF(NP.F0.4)GO  TO  40 

GRS»Y(l,N2  l♦R*(YPm♦P*^nY(2)-YP(  im 
RETURN 

40  0XC3l»XnfN4)-Xl  1.N3I 

nY(3l«YC ltN4)-Y(l,N3» 

YP(2)*(0Y(2l*0X(3I**2*0Y(3l*DX!2)**2)/(DX(3»*inXI2)+DX(3) )) 
GRS*Y(l,N2  l*R*(YP(ll+P*f3.*DY(2  l-2.*YPin-YP(2l*R*(YP(  D+YPI  2)-; 
1 nY(2im 
RETURN 

70  GRS*Y(l.n 
RETURN 
ENO 
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FUNCTION  GRUT,X,N» 

LTNFAR  INTFRPOLATIOM 
DIMFNSION  TI2) 

DO  I 1-2, N 
K*T^T 

TF(X-T(K-lI)2,?»l 

CONTINIIF 

GPl*T(K-2)  + mK)-TfK-?I  I/mK-l)-TCK-3»»*(X-T(K-3)) 

PFTURN 

FNO 
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SUBROUTINE  GUE SS( I BOUNOt I «JI 

C THIS  SUBROUTINE  MAKES  AN  INITIAL  GUESS  FOR  THE  PROPERTIES 
C AT  THE  NEN  POINT 

COMMON  RMI25,251»ZMf 25,2SI«PC25«25t2)tAC25t25«2l  tRHOf 25»25t2l  t 
•URf 25,25»2I(UZI25«29,2)tN0R,N0Z*RBMI10*30t2ltZBMf I0»30f21« 
.RB(10,21f2)«ZBC  10»2lf2)«THETAnOt30,2lfPBI10«30»2l«AB(10t30t2)« 
•RHQB(l0t3O,2),URBf 10»30t21tUZBI10t30t2)fNACTVE(25t25ltN000l25,25) , 
.NBACT(10,30t2l tNBQCDf 10t30«2l« ITYPEI  10,30. 21 tINUMf 10,30,21, 
.LBPTdOI.IAXESf  10,301 

CQMPrN7PLANF/UPG(5l,UZG(5l,PGf 5),RH0GI5l,RGf 5l,ZGf 5I,AG(5), 
.pnew,rhnfh,anew,urneu,uzneh,rap,zap,rnew,znem 
C0MPCN/DATA/ITEST,NBP,N10TH,ANGLE 
NK*IBCUND+l 

GO  TOdOC, no, 110,1101, NK 
100  PNEH«P(I, J,1 ) 

RHNEW-«RHCC  I,J,  II 
ANEW>A(T,J,ll 
URNEN>UR(  I,J,n 
UZNEW>UZn,J,l  I 
GO  TO  120 

110  PNEta>PE(  I,  J,  II 

RHNEW*RHG'»(I,J,1I 
ANEW«Aen,J,  II 

URNEW*URPn,  J,  1I*CQS(  ANGLEdUZBII.J,  1I*SIN1ANGLEI 
tIZNFW«-URB(I,J,ll«SIN(ANGLEI»UZBf  1,J,1I*C0S(ANGLEI 
120  CONTINUE 

C SET  BASE  POINTS  OE  CCNE 

00  B40  KK«1,5 
URG(KKJ*UPNFW 
UZGIKK|«UZN*:h 
PG(KK1»PNEW 
PHnG(KKI«RHNFW 
AG(KK|*ANEW 
RAO  CCNTINUE 
RETURN 
END 
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SUBPQUTINE  INITIAL (DELB, DELZ.TIHEI 

CQNKPN  RN(25,25),ZM(29,25),P(25,25,2I,A(25,29,2),RH0(25,25,?) , 
.UR(25,25,2),UZ(25,25,2),NCR,NOZ,RBN(10,30,2I,ZBN(10,30,2I, 
.RB(10,2l,2l,ZB(10,21,2),THETA(10,30,2),PB(10,30,2) , ABC  10,30,2 ) . 
.PMOf!(l0,30,2),URB(lO,30,21,UZeil0,30,2),NACTVE(2$,25l,NODf)(2S,25) , 
.NBACT(lO,30,2),NRQOD(10,30,2),tTVPE(10,30,2l, INUH(10,30,2), 
.IBPT(10),IAXES(10,30) 

r.CMPrK/BnUNO/JCDr)E(lOI,KCCOE<10,3},LCOI)F(lOI,NCOOEI10), 
.BTINP(10,20,3),BCGN(10,20,20),BSPCE( 10,20)  ,ACON( 10,20,201 , 

.rroKno,20,?o) 

CnyprN/EXT/URR,l)ZZ,PPAT,RRAT,ARAT 
fnMMCN/nATA/TTPST,NBP,V<IOTH,ANGLE 
C FOP  BLA^T  WAVE  r.FKFRATE  IMTIAL  DATA 
OP  520  i»i,Nnz 
no  520  J«l,NOR 
PMA=PP(T,J) 

ZMA=ZVn,J) 

CALL  EXACT(RMA,ZMA,TIMF) 

UR ( I, J,1 )*UR» 

UZ(I,J,n<U7Z 
P(  I,J,  n*PRAT 
PHD( T ,J, 1) =ORAT 
Ad  ,J,n*APAT 
570  rONTINUP 
PRINT  5P0 

500  FflPPATC  INITIAL  CATA  CENERATFO  BY  SEDOV* , IH* , *S  FXACT  SOLUTION*) 
no  522  I«l,NflP 
KSPCE*LBPT(I  ) 
nn  522  K*l,KSPCE 
PMA=PPN( I,K, 1) 

ZMA  = ZRM(l,|(,l) 

CALL  FXACT(PWA,ZMA  ,TIPE) 

UPP( I ,K, l)*URR 
UZBII  ,|(,1)>IIZZ 
PB( I,K,l)»PRAT 
PHOPI  I,K, 1)«PPAT 
AB(  I,K,l  )*ARAT 
522  CONTINUE 
RETURN 
END 
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c 

c 


102 

c 

104 

106 

20? 

204 

206 
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SUBRGUTINf  INPROPf  IB.IBCUNW 

niPFKSICN  PROP(lO),Xf  10}«Plf3}tBH01(3)«UZlf3)»URU3)» 

.Al(3) »0UM1(3|  tOUM2f3)«OUP3C3} 1 0UM4C3 ) t DUN5(3 ) tDUM6 (3) t XY( 3) 
CnHPOK/P«RTIAL/PURRI5l»PURZ15)fPUZM5)fPUZZ<5}  .PARI  51  •PAZCSI 
CGPPCR/OOPAIN/RPOfl5)«ZPDfl5ltPO(15)tADI15l»RHODt 151 t 
.URDflSItUZOf 15I«LSUB(15) 

C0PP0N/PlANE/URG(5}»UZGf 5)tPGf 5ltRH06(5)tRG(5) tZG(5) tAG15)t 
. PNEW,  RHNEW , ANEW,  URNEWftlZNEWtRAPf  ZAP*  RNEWtZNEW 
CQMMGK/OFR IV/OURR 1 15) ,OURZI 15) ,DUZR( 15),0UZZf 15) , 
.D4R(15),DAZ(  15) 

C0PPCN/0ATA/ITEST,N6P, WIDTH, ANGLE 

INTERPOLATE  FOR  PROPERTIES  OF  4 BI-CHARACTERISTICS  AND 

PAPTICLF  PATH 

KV*3 

no  100  1*1,5 

IF((ieCUND.GT.0).AK0.CI.FG.2))G0  TO  100 

IF(ni80UN0.F0.2).0R.neCUND.EQ.5n.AND.(I.E0.3))Gn  TO  100 
IF(  (nBnUN0.EQ.3).CR.(  ieOUNn.E0.6)).AND.(  I.EO.l)  )G0  TO  100 
GO  T0(102,104),ia 
VERTICAL  INTERSECTION 
XIN0*RGU) 

YIND*ZG( I ) 

GO  TO  106 

HORIZONTAL  INTERSECTION 

XINn*ZGm 

YiNr*RGni 

CONTINUE 

no  110  K*1,KV 

GO  TO  (202t?04,206),K 

IK*lSl'Bm 

JK*LSUR(2) 

LK*LSL'013) 

GO  TO  116 
IK*ISUB(4) 

JK«ISU6( 5) 

LK»LSLBI6) 

GO  TO  116 
IKxLSUBIT) 

JK«LSUBI8) 

LK»ISU«MS) 

CALL  PRFPOOI  IK,JK,LK,URD, IB,RPO,ZPD,PROP,X) 

CALL  INTEPP(PROP,X,URlfK),XIND,3,3) 

CALL  PREPDOf IK , JK ,LK,UZO, IB,RPO, ZPD, PROP, X ) 

CALL  INTERPf PR0P,X,UZ1IK),XIN0,3,3) 

CALI  PRFPDOCIK,JK,lK,PO,IB,RPD,ZPD,PROP,X) 

CALL  INTERPCPRnP,X,PlIK),XINn,3,3) 

CALL  PREPDOI  IK,JK,LK,RHOD,IB,RPD,ZPD,PROP,X) 

CALL  INTERP(PR0P,X,RH01fK),XIND,3,3) 

CALL  PRFPnCI IK, JK,LK,0URZ,IR,RPD,ZP0,PR0P,X) 

CALL  INTFPPCPRnP,X,DUHl(K),XIND,3,3) 

CALL  PREPDOI  IK , JK,LK,DUZZ,IB,RPD,ZPD,PROP,X) 

CALL  INTFRP(PROP,X,DUN2CK),XIND,3,3) 

CALL  PREPDCI IK,JK,LK,CAZ,IB,RPC,ZPO,PROP,X) 

CALL  INTERP(PR0P,X,0UM3fK),XIND,3,3) 

CALL  PREPDCI  IK ,JK,LK, DURR, IByRPD, ZPD, PROP, X) 

CALL  INTFRPIPROP,X,OUM4fK),XIND,3,3) 

CALL  PREPDOI  IK,JK, LK,DUZR,IB,RPD,ZPD,PRQP,X) 

CALL  INTERPIPR0P,X,0UM5IK),XIND,3,3) 
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I 

( CALL  P«FP00f IK,JK,LK,CARi IBtRPO#lPO.PROP,XI 

I CALL  TNTePP(PR0P,X«0UM6(K),XtND*3t3) 

no  COMTINUF 

t C PERFORM  SECONO  INTERPOLATION 

IA»lSL'Bm 
IC*LSL'P(  3) 

IO*LSUBIA) 

IE*ISUB(7) 

IF«l<;UR(  9) 
on  Tnc?30,?32)f 18 

?30  XYI  n*ZPD(  IA»*CZPDnf.|-ZPD(IAI  )*tRG(I  l-RPOl  I A)  )/CRPO(  ICI-RPO(  lA)) 
XY( ?)*ZPOt  in) 

XY(3)*ZPD(  ir)*(ZPO(IFI-ZPCnE)  )*|RGC  I)-RPOIIE)  )/(RPO(  IF)-RPD(  !E)) 
GO  TO  23A 

?32  XYm*»PD(  IA)*(RPCnr.)-PPOnA))*IZGt  I)-ZPD(IA)  )/(ZPOI  IC)-ZPD(  lAI) 
' XY(?)»3P0(  in) 

XY(3)=RPO( IF)  + IPPn(IF)-RPC(IF) )*IZG( I )-ZPD( IE) )/ f ZPOI IF)-ZP3( IF) ) 

234  CONTINUE 

CAM  INTFPF(UR1,XY,URGA,Y  INn,3,3) 

CALL  INTERPCUZl,XV,UZGA,VINO,3*3) 

UPGU  )«URGA*cnS(  ANGLF)  ♦UZGA^S  INC  ANGLE) 
UZGm*-UPGA*^IN(AAGLE)MJZGA*COSIANGLF) 

CALI  INTERPCPl.XYtPGC I) «YINOt3*3t 
CALI  INTERPCRHO) ,XY,RHCG( I)*VIN0t3*3) 

' AG(  n = SOLKn(PWOG(I),PGII)  ) 

C DETFRMINF  oartIAL  DERIVATIVES  IN  Z DIRECTION 

CAH  INTERP(OUMl,XY,PUPZC I)«YIN0«3t3) 

CALL  INTERPCOUM2«XY,PUZZC I).YIN0t3,3) 

CALL  INTERPinUM3,XY,PAZC I )tYINOt3t3) 

CALL  INTERP(nilM4,XY,PURPC  I),YIN0,3*3) 

CALL  INTERP(OUM5«XY,PUZR( I)tYIND,3*3) 

CALI  INTEPPinUM6,XY,PARC I ),YINOf3t3) 

100  CONTIMJF 
RETURN 
END 
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SUBROUTINE  INTEGMtJtDELTA) 

CnMNON/nATA/ITEST,NBPfNinTH,ANGLE 

COMMON  PMI25,25),ZMf25«25)tP( 25t25t2) tAI25t25t2) tRHOf 25»25t2 I f 
.URf 25t25,2ltUZf 25«25t2),NGRtNOZ»RBM(10t30t2ltZBMf 10t30t2)t 
.RB( 10»21 ,21 «ZB( 10,21,2), THETAtl0t30t 2) tPB(lO»30*2)»AB(10t30t2)t 
.PHCet 10,30,2),URBf 10, 30,2), UZB4 10, 30,21, NACTVEf 25,25), NOOOI 25, 25) , 
.NRACT(10,30,2),N6GDO(10,30,2), ITYPEI 10,30,2) ,lNUMf 10,30,2), 

.LBPTl 10) ,IAXESf 10,30) 

COMMON/PLANE/URGC5),UZGI5),P6C5),RHOG(5),RGI5),ZG(5),AG(5), 
.PNEW,RHNEW, ANEW, URNEW,UZNEW, RAP, ZAP, PNEW,ZNEW 
C0MMCN/BCUND/JC0DE(10),KCC0EC1C,3),LC0DE( 10) ,MCOOEIIO), 
.BT1MEU0,20,3),BC0N(10,20,20),BSPCE(  10,20),AC0N(  10,20,20), 

.CCOM  1C, 20,20) 

C DETERMINE  NEW  POSITION  CF  BOUNCARY  PCINT 

LK*JCCOFm 

GO  T0( 10, 1C, 30, 40,50,60, 10), LK 
IK*1, CONSTANT  PRESSURE  LINE 
IK=2, NORMAL  VELOCITY  LINE 
LK*3,ERFF  SURFACE 
LK=4, CONTACT  01 SCONT I NU IT V 
IK*5, MOVING  SOLID  BOUNCARY 
lKx6, SHOCK  FRONT 
LK*7, CASCADE  LINE 
10  RNEWxRBMII  ,J,1) 

ZNEW«ZBMn,J,l) 

RETURN 

C IN  GLOBAL  COORDINATES 

30  RNFWxRBMtl  ,J,  1 l^-.BAIURNEWRCOSIANGLEl-UZNENFSINCANGLEH- 
.URB(I,J,1)  )*0ELTA 

7NEW«ZBM(I  ,J,l)«>.5P(URNFW*SINl  ANGLE)  ♦UZNEW*COSI  ANGLE)  ♦ 

.UZB(I,J,1)  )«0ELTA 
RETURN 

40  CONTINUE 
50  CONTINUE 
60  CONTINUE 
RETLRN 
END 


s 

i 
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SUBROUTINE  INTERPI PROPltXtYtXINOtNOVtNORO) 

THIS  SUBROUTINE  INTERPOLRT6S  USING  LAGRANGIAN  DIFFERENCES 
niMFNSICN  PROPim.Xf  n,T|4) 

DETERMINE  WHETHER  TO  USE  FORWARD  OR  BACKWARD 
IF|NOV.LE.2)GO  TO  10 
Y«GRSfX,l,PRnPl.l,XIND«NOV«NRANGEt 
RETURN 
10  T(ii*xm 
Tni»XI2l 
T(2l*PR0Pim 
T(4)«PPnPH2I 
Y=GP1(T,XIN0,2I 
RETURN 
END 


SUROOIITINE  LAGRNE(l.,M,N,PROP»X»PPL,PPM,PPN) 
nTHFNsrriM  pRnpm,xm,Yni,Fm 
r THIS  SURROUTINF  computes  LAGRANGE  DERIVATIVE 
r SET  UP  TA9LP 

F(  n*ppnp(LI 

F(2)*PR0P(M) 

F<  •^>*PROP(MI 

Y(1)»X(U 

Y(?)*X(M) 

Y(3J«X(MJ 

C FOPWARO  VALUP 

PPL*FI  Ar,PE(F,Y,Y(  1)  I 
C CENTRAl.  VALUF 

pPMsFLAr.RF(F,Y»Y(7n 

r.  RACKWARO  VAUIF 

PPN*FlAGPF(F,Y,Y(3n 

RFTIJPN 

END 


StlPRnUTfNF  nnDPTUNDEXfMI 

COMMON  PM(25«25l*ZMf 25,25l,PI25,Z5,2l,A(25«?5»?)«RHni?5»25,2), 

.UR (?5,25«2) tUZf 25»2;t2)«NnR»N07«RnM(10,30t2ltZBM(10t30f2lt 
.PR(10t21t2l tZP(10*21f 2l(THETAfl0f30t2)«PB(10,30f 2lt A6(10f30f2)f 
.PH0R(10»30,2) tURR(l0»30t?ltUZB(l0t30«2l tNACTVFf 25*29} tNOOOf 25*25) » 
.NP AC. T(  10*30*2  )*NnODO(  10*30,2 }* ITYPF(  10*30* 2 )*  INUM(10.30*2 ) * 
.IRPT(IO) *IAXPS(10*30I 
rpMMnN/DATA/TTFST,NPP,WinTH,ANGLF 

niMFNSION  IMSH(20n)*JMSHI200|*OISTC20)*ISTRF«20} *KSTRE(20I* 
.NFWnRD(20) *IFML(200) * KFNL f 200} * KVAL 1 2001  * PROP ( 1 0 I * X ( 10 ) 
PI»3.lAl5R2P‘535BOp 

r DFTFRMINE  flOUMOARY  POINT*;  ^OR  000  POINTS 
GO  T0(l00*300, 500), INDEX 
100  KOUNT»0 

on  no  I«l*NOZ 
on  1 10  J»l  ,NOR 

IF (NACTVFI I , J) .FO.OIGO  TO  llO 

TF(NOPDn*J).EO.O)GO  TO  110 

INTFP*1 

KnUNT*KOUNT+l 

IHSHIKOIJNT)*! 

JMSH(KOUNT)*J 

NAMNT«0 

NUM*J 

112  CONTINUE 

C ASSUME  THAT  THF  COLUMN  J HAS  A VERTICAL  INTFPSFCTION 
on  120  L*1*NPP 

kspce-lpptil  ) 

on  120  K«1*KSPCF 

IF((K,EO.n.nP.IK.EO.KSPCE}}GO  TO  119 
IF<  INTER. NF.ITYPF(l,K*MnC.O  TO  120 
IFfNUM.NE.TNUM(L*K*M) IGO  TO  120 
119  CONTINUE 

NAMNT*NAMNT+l 

ISTPC(NAMNT)*L 

KSTPE(NAHNT|*K 

OISTINAMNT)»SORTnRMn*J}-RPMCL*K*M)  )**2+ 

.(ZMIT*  J}-ZBM(l,K,Mn**2} 

120  CONTINUE 

GO  Tn(l?2*l24)*INTFR 
C.  ASSUME  HORIZONTAL  INTFRSFCTION 

I?2  INTFP*2 
NUM»I 
GO  TO  112 

124  IFINAMMT.EO.OIGO  to  126 
C FINP  MINIMUM  DISTANCE 

r ALL  SORT fniST*NAMNT,NE WORD *0,-1) 

C STORE  RESULTS 

NFINL*NFW0P,D(1 ) 

IFNL(KOUNT)»ISTRF(NFINL} 

KFNL(KOUNT)*KSTPE(NFINL} 

KVAL(KDUNT)«0 
L*ISTRE(NFINl } 

K*KSTRF(NFINl ) 

KTYPE*TTYPFfL*K*M) 

IF((K.F0.1).OR.(K.E0.LRPTfL} })  GO  TO  140 
GO  TOI128* 130)*KTYPE 
12P  KVAL CKOUNTI-l 


125 


IF((THFTA(L.K,MI.GT.J.75*P!)».AN0. 

.f  THFTAd  ,K,M|.lF.(l.25*Pn  l|KVAl<K0UNTI«2 
on  rn  n? 

130  ir((THFTA(Lf  K,M)  .GT.(.25*PI  M.AND. 

.(THFTA(L,K,M).LF,(.7S*PnilKVAUKnUFtT)«3 
IF(  <THFTA(L.K,MI.GT.<1,25*P!  n.ANO. 
.(THFTACLtK,MJ.LF.(l.75*Pn  »IKVAL(Km)NT»*4 
13?  IFfKVAl  (KOU^'T).NF.O)Gn  TO  1!0 
126  wmiTF(6,fln00M  tJ 
CALL  EXIT 

140  iriK.fQ.n  r,o  Tn  14? 

KVAL(KniINT1  = 6 

G"  TO  no 

142  K\/AL  (KnUWT  ! = •> 

nr  c(!nttmuf 

•*00  CONTINUE 

ir (KnUMT.FO.O)PETUPN 
r TMTf«?ppLATf  PPO  POINTS 
OP  310  I=l,KnuNT 
I s IMSH1I ) 

K=JMSHn  ) 
lR  = IFNLm 
KR-KFWLM  ) 

NK*KVAL(  I ) 

CALI  PRFPOOINK,LtK,lB,KA,M,X,PPnP,UPBtUr*XINni 
FALL  IMTPPP(PRnp,x,(IP  (L,K*M),XINO*3,3) 

CALL  PPFPOniA'K.l  ,K,LB»K0,M,X»PRnP,U7B,U7,XINn> 
FALL  lNTFpP(PPPP»X,U7(L»K,HI,XlNn.3»3) 

FALL  PPPPOO(NK,L.K.I.B»KB.MtX,PPOP.PHnB,PHn,XINO) 
FALL  INTPPP(PpnP,X,PH0(L»K,M|,XINn,3,3) 

FALL  PPFPOn(NK,LtK,LBfKfltMtXtPRnPfPP,P*XINO) 

CALL  INTFRPf  PPPP , X, P ( Lt K,M) , X INP# 3#3 I 
A(  L»K,M|«SOllNn(RHn(L*F,MJ  ,P(L*K,Hn 
310  FONTINUF 
PFTURN 

son  continuf 

C INTPRPnLATP  FOR  000  PPUNniPY  POINTS 

OP  BIO  1*1, NRP 
KSPCF«LPPT( I »-l 
00  B20  K*2,KSPCF 
IF(N8ACTn,K,MI.EO.OIGO  TO  B20 
IF(NROnn(T,K,Pl.EO.O)Gn  TO  B20 
NART*1 

IF(K.FQ.KSPCF)NART»2 
F,n  T0(530,'?40)  ,NAPT 
530  IK*K-l 
JK*K+l 
LK*K+2 

MK*X 

IP(MRACT(I,LK,M|.EO.O)GO  to  540 
GO  TO  550 
540  lK*K-2 
JK*K-l 
IK*K+1 
MK*K 

IFINBACTII,  IK,M).EO.O)GO  TO  530 
5R0  CONTINUE 

C IMTEPPOLATF  FOR  ODD  BOUNOARY  POINT 
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CALI  BnPROPtfKtJK,LK,MK»ItMtPflOPtXtURB»XlNO) 
CALI  INTBRP(PP0P«XtUPPntKfM|,XlNn,3,3l 
CALI  ROPROPf IKtJKvLKtMKtltNfPROPfX.UZBtXIND) 
CALL  INTFRP(PPOP«X,UZ6f I«KtM}«XINOt3t3) 

CALL  BnPRnPUKtJKtLK.MKt  I(M,PROP»X,PB  fXINOI 
CALL  INTFRP(PRnP,X»PRn«K»MI«X!Nn,3t3l 
CALL  BDPROPnKfJKtLKtMKf  I»MtPRnP«X«RHOB*XINO) 
CALL  TNTFRP(PROPtXfRHnRf I t K,M ) , XTND« 3t 3) 

AB(I  ,K,M)>SnUND(RHnR(I»K,M),PR(  I«K»MH 
5?n  CONTINUF 

*5 10  continue 

RFTIIRN 

ROOD  FOPMATCIH  ,15HFRR0P  SOB  ODOPT t I 3f IHt t ! 2) 

POlO  FOPMATflM 
P020  FOPMATHH  ,IOF10.3I 
ENO 
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SUBPOUTINE  PHYCHRflBCUNDtOELTl 
C THIS  SUBRCUTINE  PROJECTS  THE  PHYSICAL  CHAR.  AND 
C PARTICLE  PATH  BACK  TO  ORIGINAL  TINE  PLANE 

COMHnN/PLANE/URG(5)fUZG(5ltPG(5l«RHOGf5l,RG(5l,ZGf 5I*AG(5I« 
.PNEM»RHNEUtANEH(URNEWtUZNENtRAPt ZAPtPNEMiZNEW 
COHHON/DATA/ITEST«NBPtHIDTHf ANGLE 
PI»3.lAl5G2653589793/2. 

RAPxO. 

ZAP*0. 

C COMPUTE  BI-CHARACTERISTICS 

PO  IOC  I»lt4 
AKxFLCATII  1-1. 

TFdBOUND.EQ.OIGO  TO  llO 
IFCI.EQ.2IGO  TO  100 

IFin  IBOUNO.EQ. 21  .OR. ( IBOUNO.EQ.Sn.AND.n. £0.31)00  TO  100 
IF(((  IBnUNO.FQ.3).OR.<I60UNO.E0.6n.ANO.(I.EO.l))GO  TO  100 
110  RGA«RAP-.5*nELT*IUPNEH4>URGmAlANEH4-AGC  I)  I* 

.COSIAKAPin 

ZGA*ZAP-.5*nPLT*(UZNFW^UZGin^«ANEW^AGm  I* 

.SINIAKPPI)  ) 

RG(I)«RGA*COSI ANGLE)-ZGA*SINIANGLE)*RNEH 
ZGm«RGARSIN(  ANGLE  )AZGA*COSCANGLE)^ZNEW 
100  CCNTIKUE 

C CCMPlJTE  PARTICLE  PATH 

RGA«RAP-.5*0ELT*IURNFh4UPGI5)) 

ZGA.ZAO-.5*0ELTR|UZNEH4UZGI5n 

PG(5)«RGA*CnS( angle )-ZGA*SIN( ANGLE! ♦ANEW 

ZG( 5) «RGA*SIN( ANGLE )4ZGA*C0S(  ANGLE I4ZNFM 

IFI IBOUNO.lt. 4)  RETURN 

RG(5I*RNEH 

ZG(5)*ZNEH 

RETURN 

ENO 
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SUBKOLTINE  PPEPB(  1 It  12t  I3t  HtPROPtVt  PRCPAf  Xt  lART) 
C THIS  SUBROUTINE  PREPARES  THE  DONA  IN  DATA  FOR 

C INTEPFCLATIC^ 

OIHENSION  PRCPdl  (Vm,PRCPAm,XU) 

X(1I-V(I1) 

PROPA  m>PRCP(Il) 

M2)«V(I2) 

PROPA  l2l«PRCFf  12) 

X(i)«V(13) 

PROPAI3)-PRCPf 13) 

!)■(  IART.CT.O)RETURN 
X(A) «Y(IA) 

Pf>UPACA)>PRCPII4) 

RETURK 

END 
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SUBPQUTINE  PRFPDOl lit I2t 13tPROP«KOUNT«RPD(ZPO|PROPltX) 

C THIS  SUB9QUTINP  PREPARES  THE  DOMAIN  DATA  FOR  INTERPOLATION 
DIMENSION  PROPlIlOltX! 10} tPROPI 1I«RPD ( 1) , ZPDI II 
GO  TOnOOdlOl.KOUNT 
100  X(ll«PPDni) 

PROPim-PBOPflll 
X(2»*PP0!I2I 
PRnPlI2)*PP0PC 121 
X(3)*PP0CI1I 
PROPl  (3)*PP0P(m 
RETURN 

110  X(1)«ZP0I III 

PROPl  (i)*ppopm  I 

X(2)*ZPni  12) 

PR0P1(2)«PRPP( 121 

XI3)«ZPDCni 

pR0Pi(3)«PRnpn3i 

RETURN 

END 
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SUnROUTINE  PRFP00(NK,IR,IC«UltK6tNtX»PRnP»PR0PntPR0PGtXIND) 

COMMON  RMt25f25)»ZM(25t2S}tPl25,25,2),A(25,29«2},RHOf25t25t2lt 
.UR(25»25,2},tlZ(25»25»2),N0R,N02,RBM(10,30«2) tZBMfl0«30»2}f 
.PR(10,21,2l»ZB<10»21»2),THETA(lO»30t2ltPB(10,30,2),ABnO,30,2)t 
.RH0B(10,30f  2)  ttIRBf  I0*30«2t  tUZBf  10t30*2l  ,NACTVE(  25t25l  tNODDI  25t  251 » 
.NBACT(10«30«2l«NRnDD( 10«30»2ltITYPE( 10«30»2I t INUM(  10*30,2) • 
.lRPTnO),IAXESnO,30) 

DIMENSION  XI 1) ,PROPtl) ,PROPG(25,25,2)*PROPB(10,30,2) 
r.  THIS  SUBROUTINE  PREPARES  DATA  FOR  000  POINT  INTERPOLATION 
on  Tonoo,  200, 300,^00, 500,600)  ,NK 
r NK«1, VERTICAL  INTERSECTION  AND  AOO  POW  INDEX 

100  continue 

xm*ZRMILB,KP,M) 

PROP (l/*PRnPR(LB»KB,MI 
X(2)«ZM(IR*l,IC) 
oor,;(2).PROPGC  IR*l,  IC,M) 

XI  n*ZM(  IR»2,IC) 

PROPm»PRnPGnR+?,IC,M) 

XIND-ZMl IR,IC) 

return 

C NK«?, VERTICAL  INTERSECTION  AND  SUBTRACT  ROW  INDEX 

200  CONTINUE 

Xm»ZRM(LB,KB,M) 

PRnPm*PRnPBILB,KB,M» 

XI2)*ZM(IR-|,ICI 
PROP(2)«PROPG( IR-I, IC,M) 

X(3»«ZM(IR-2,ICI 
PR0P(3)«PPPPGnP-2,IC,MI 
XINO»ZM(IR ,IC) 

PF  TURN 

C NK«3,H0RI  ZONTAL  INTERSECTION  AND  SUBTRACT  COLUMN  INDEX 
300  CONTINUE 

XI  n«RPM(Lfl,KR,M) 

PP0P(U«PRnPB(L8,KB,M) 

X(2)»RMnR,IC-ll 
PP0P(2)*PROPGI IR,IC-l,M) 

X(3»«RMnR,IC-2) 

PRnPI3)»PR0PGIIR,IC-2,M) 

XIND-RMf IP,IC) 

TURN 

C NK»4,H0R I ZONTAL  INTERSECTION  AND  ADD  COLUMN  INDEX 

400  CONTINUE 

Xm«PBM(LR,KR,M) 

PROPm»PRnPR(LB,Kfl,M) 

XI7)«RMnR,  IC»1) 

PROP(2)«PROPGIIR,IC+1,M) 

X(3)>RM(IR,IC«2) 

PROP(3)«PROPGIIR,  IC3-2,M) 

XIND-RMf  IR, If.) 

RETURN 

C NK«5, FIRST  CORNER  POINT  INTERPOLATION 

500  CONTINUE 

NART*ITYPEILB,K8,M) 

GO  TO  1510, 520), NART 
510  X(1)>RBH(LB,K6,M) 

PROP(l)«PRnPBILB,KB,M) 

X(2)*RRM(LB,KB«1,M) 

PP0PC2)*PR0PBfLB,KB^l,MI 
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X(3)»RBMCLP,KB42tHI 

PRnPf3)*PRnPB(LBtKRt2,MI 

XINn*RM(IR,IC) 

PFTURN 

•520  Xm«ZflM(LR.KB,Ml 

PRnP(n>PRnPBCLB(KR«MI 

X(2)>ZPM(LB»KB^l«M) 

PPOP(?)*PRnPR(».BfKB*lfM» 

X(3)*ZPM(LBfKB^2,M) 

PROP(3)*PPnPP(LB,KR+2,MI 

XTND*ZM(IR,ir) 

PFTURN 

C NK*6,SFCnNn  rriRNFR  POINT  INTFRPOLATinN 

600  rONTlNUF 

MAqT*ITYPF(LPfKR,M) 
r.O  Tni6l0,620)  fNAPT 

610  xm*RPM(l  B,KP,M1 

PROP  m»PPOPR(LBfKP,HI 
XI 2)*RRM(LP.KP-1,MJ 
PPnp(?).pRnPP(l R,Kfl-l,Hl 
X(3I*PBN(LB,KB-2,M) 

PPOP (3)*PPnPB(LP»KB-2tMl 
XT*IO«RM(IRf  IC) 

PFTIjPN 

620  X(  ll*ZPM(LB,KR,M) 

PPnP(ll»PRnPP (LBtKR,M) 

X(2»»ZRM(Lfl,KR-l ,M) 

PPnP(2)*P«0PB(LR.KR-l,M) 

X(3»«7PM(LB,Kfl-2,M| 

PR0Pm»ZRM(LR,Ke-2,MJ 

XlNn»7N(IR,ICJ 

PFTURN 

FMO 


SUBROUTINE  PREPBS (INDEXt IB »KVALUEtETA,BETAtKNTI 
COMMON/BUFPER/PimiUlBItEURZaSItPUZRnB)  fPUZZIlS)* 
.PAPn5l,PAZ(l5l 

COMMON/OFBTV/OUBRf  15)fDURZtl5)»DUZPf  l9ltOUZZ(15)t 
.OAR(15),nA7(19) 

r THE  PURPOSE  OF  THIS  SUBROUTINE  IS  TO  PROCESS  THE 

r DERIVATIVES  FOR  THE  A0NORNAL  GENERAL  POINT  AND 

C THF  CORNER  POINT 

GO  TOnOOt ^00)  .INDEX 
C COMPUTE  GENERAL  POINT  DERIVATIVES 

100  CONTINUE 

CALL  ARDIFdB.FTA, RVALUE) 

DO  110  KL»l.O 

DURR{KU»PURR(KU 

nUR7(KLl*PU0ZIKL) 

OUZR(KL)«PUZR<KL) 

nuZZ(KL)*PUZZlKLI 

DAR(RL)«PAR(KLt 

DAZ(KL1«PAZ<KL) 

110  CONTINUE 
RFTUON 

C COMOUTE  COPNFR  POINT  DERIVATIVES 

300  conttnuf 

GO  T0(310,3?0) ,KNT 
C COMPUTE  FIPST  CORNER  POINT 

r I BOUNDARY  IS  7,4,1  AND  K BOUNDARY  IS  7,8,9 
310  CONTINUE 

CALL  ABDIFIl.FTA.U 
DO  312  RL«l,9 
miRP(KLI*PURR<KLI 
DURZIKD-PURZIKU 
DUZP(KU«PUZR(KL) 

0UZZIKU*PUZ7fKU 

DAR(KU>PAR(KL) 

DAZ(KU«PAZ(KL) 

312  CONTINUE 

C COMPLETE  ADJOINING  BOUNDARY 
CALL  ABDIFI2,0FTA,3) 

DO  314  KL»7,9 
DURR IKL)«PURP (RLI 
DURZ(KL)«PURZ<KL) 

DUZRIKL)»PUZR(KL) 

DUZZIKLI-PUZZIKLI 

DAZ1KL)»PAZIKL) 

DAR(KL)«PARIKL  ) 

314  CONTINUE 
RETURN 

C DO  SECOND  CORNER  POINT 
320  CONTTNUF 

CALL  ABDTFfl.ETA,!) 

DO  322  RL«l,9 
DURR  IKL)«PURRfKL) 

OURZ(KL)»PUPZfKLI 

DUZPIKL)»PUZRfRL) 

DUZZfKL)«PUZZ(KL) 

DAP(KLI«PAR(KL) 

DAZIKL)«PAZIKL) 

322  CONTINUE 
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rOMPLFTF  AnjnfNTNG  BOUNDARY 
CALL  ABOrFrZtBFTA,!) 

DO  324  KL«l,3 

DURR  (KLI«P()RR  (KU 

nilRZ(KU«P(IRZCKL  I 

OUZP(KLI*PUZR(KL) 

nUZZJKl }«PUZZfKl  J 

nAR(KI  )xPAR(k|.  I 

OAZ(KL )»PAZ(KL ) 

contimup 

RFTMRN 

FNn 
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SUBROUTINE  PRINT 

C WRITE  OUT  INTERMEDIATE  OUTPUT 

COMPON/PLANE/URGf 5ltUZGC5>»P6l5)fRHOG(9l»RGC5lfZ6l5}fAGC5l. 
.PNEH«RHNEW»ANEW,URNEWtUZNEWtPAPtZAPtRNEW,ZNEW 
CQMMaN/SETUP/RASU),PACI4}«RC9}tOGLPfOELRHtDELURt 
.DELUZ,Sf5) 

COMPON/PARTIAL/PURR(5ltPURZ(5)tPUZR(5ltPUZZ(5}fPAR(5)tPAZC5) 
COMMGN/DCMAIN/RPOf  ISItZPOflS}  tPOf  19}  t AD(  151  • RHOOI 151 1 
.URO(19l«UZCn9ltLSUBf  19} 

COMHON/OERIV/OURR  ( 15}  tOURZf  15}  tOUZRI  19}  tDUZZ  (15) » OAR(  15)»DAZ(  15) 
WRITE(6*8010} 

WRITE (6t80CO}OELPtOELRH,OELUR,nELUZ 
WRITE(6«80C0}(RAC(  1) »I-ltA} 

WRITE(6«8000MRAS(  I}tl«lf4} 

WRITE  (6(8000)  (Rn}fl«lt5) 

WRITE(6(8QC0}(  S(  I) (I«l«5) 
on  151  I»l,5 

151  WRITE(6(8000}RG(I}(ZG(I}»PG(I}(RHOG(I}(A6(1}»URG(  I ItUZGd) 

on  153  I«l(5 

153  WRITE(6(8000)PUPR(  I}(PURZ(I}tPUZRmfPUZZ(  I }(PAR(  I }(PAZ(I) 

DO  160  I«l,12 

160  WRITE(6«8CCO}RPO(  I),ZPO(  t)«PD(  I)  »RH00(  I)  • AO(  I } »IJRD(  I } (UZD(  I } 
on  162  I«l(12 

162  WRITE(6«8CC0}nL'RR(  I}(nURZ(I}«DUZR(I}(DUZZ(  I}*DAR(  1}(0AZ(I) 

WRITE  (6(8020}PNEW«RHNEW(URNE)ltUZNEHt  ANEW*  RNEWtZNEH 
8000  FORHAm)-  (10E10.3) 

8010  FORMATdOH  SUB  PRINT) 

8020  FORPATdH  «7EU«7} 

RETURN 

END 
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SURPOUTTNP  RFPLCTCMI 

THIS  RnUTINE  SETS  NEW  DOMAIN  POINTS  FDR  CORNER  POINT 
rOMMON  RM(?5t25)tZM(25t25ltPI25t25»2)tR(25t25f2) tPHOf 2S«25t2} t 
.UR(25,25«2),UZ(2S,25t2)tNORtNOZtRRMf 10t30»2ItZBMflO,30>2) * 

.RRI lO«21»2)fZR(10t21t2)»THPTA(lOt30t2),PR(10,30,2}f ABf 10«30t2)« 
.RHnBn0,30,2I,URBC10,30t2».UZBf  lOt30t2ltNACTVF(25f?5ltNOOD(25,25» , 
• NR  ACT  1 10,30f2)fNBnnO(10«30,2)ttTVPEIlO*30»2l,INUMnO,30»2l« 
.IRPT(10)*IAXES(10,30I 
CnMMnN/XCMNP/ISfKSfKSltKS2tIOtIOl,I02 
rOMMON/OnMAIN/PPOdSI  ,ZPO(15»,PO(l5)f  ADI  15) , 

.RHODIIB)  ,UPnl  15)  ,UZO(  15)  ,LS»IBf  15) 

RPD( IP)*PBM( IS*KS,M) 

7PDI  in)*7.RM(  TS.KSfM) 

Pp( rn)*pRf  IStKS.M) 
pHnn  ( Tn)*RHnpns»KStM) 

IJROI  Tn)»URRnS,KStM) 

I'7n(  Tn)*U7P(  IS,KS,M) 

AniID)*AB( fS.KS,M) 

Rpnnni)*RRM(  iStRSUM) 

Zpni ini )*?py( is,ksi«m) 

pniim  )sPR(  iStKSlfHi 
RHooi  ini)=pHnens,KSi#M) 

I.IPOI  Tn))*tJRR(IS,KSlfM) 
uzni  ini)«UZRMStKSl«M) 

Annni)*AflnSfKsi,M) 

PPOI Tn?)«RPM(IS.KS2tM) 

7Pn( TO?)«7PM(IS«KS2fM) 

PD(TO?)=PRnS.KS2,M) 

PHnnnn2)*PHOP(  IS«KS2,M) 

UPHf IO?l*nPR( ISfKS2fM) 

M70I  Tn2l«UZ8( 1S,KS2»M) 

An(in2)*AR(IS,KS2,M) 

PFTURN 

FNn 
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SlIBRnUTfNF  RPRIMF(niST,RPOtZPOfPUMtPUZR.PAR, 

.uRo,uzn,Ani 

OIMENStON  niSTm.RPDtllfZPDI  Ilf  PURR  (DfPUZRCn  fPARC  n.UPOf  lit 
• llZDIllfADm 

C THIS  SUBROUTINF  COMPUTES  THE  R PRIME  DERIVATIVES 
OISTIll-0. 

niST(2)«S0RT((RP0(2)-RP0(in«*24-fZPD(2)-ZP0f  II  l«P2l 
niST(3l«S0RTf IRPnf3l-RP0flll**2^(ZP0(3)-ZP0CllI**2) 

CALL  L AGRNEflt2t3«URntniSTfPURRf llfPURR(2)fPURR(3)l 
CALL  LAGRNE(lf2f3fUZOfOIST»PUZRf l)tPUZR(2l  fPUZR(3l I 
CALL  LAGRNEnf2t3fAn,niSTfPARm,PAR(2)fPARf3)l 
RETURN 
END 
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SdBPOUTINE  SCAN! ZVAPtZItUZA.AAtUZVAR, AVAR. OELTAi 
•OHIN} 

C rnMPUT?  TIME  INCREMENT 

XNUMER«f ZVAR-ZA|/(UZA«AA) 
OENCN»l,-(UZVAR-AVAR»/IUZA*AAJ 
nELTIM«XNUHER/OFNON 
DMIN1»DELTIM*(UZA<>AA| 

IFCnElTIM.GE.DELTAIRETURN 

OELTA-DELT  IM 

DMIK*C“IM 

RETURN 

END 
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SUBROUTINE  S6ARCH(0ELRt0ELl*MNITtZINlIxHl . 

COMMON  RM(25t25ltZM(25«25)«PI25»2S»2ItAf25t25,2ltRHO(25f25.2}« 

.URf  25«25,2)fU7(25f25t2ltNCRtN0ZtRBMl  10t30f2)  f ZBMI  10»30t21 1 
.RBfl0,21»2ltZB<10t21t2)tTHETAfl0f30t2)tPB(10t30f2)»ABfl0f 30.21 « 
.RHOB(l0t30.2)tURMl0f30.2)«UZBIl0f30.2).NACTVEf25t25).NODDC25.25), 

• NRACTf 10,30. 21  .NBOOOl  10,30*21  .ITYPEI 10,30,21  * INUMI  10,30,2 1 , 

• LBPmOl  ,IAXFS(10,30I  . 

CQMMON/BCUNO/JCOOEI 101 .KCQOEC 10*31 .LCOOEI 10) .MCOOEf 10) , 

.BTIMEI 10, 20,3), BCONI 10, 20,20), BSPCEf 10,20)  ,ACONf 10,20,20) , 
.CCOMl0,20,20) 

C0MHrN/nATA/ITEST,NBP,WI0TH,AN6LE 

PI»3.1A15926535898 

C OETERMINE  IF  GENERAL  PCINT  IS  ACTIVE  ANO/OR  ODD 
C DETERMINE  BOUNDARY  ANGLE 

V&LUE«AMAXl(DELR,0ELZ)«.O01 

DMEAS«AMIN1(DELR,0ELZ)*.<) 

DO  IDC  l«l,NOZ 
DO  100  J«1,N0R 
NACTVECI,J)«1 
NOnCI I,J)«0 
100  CONTINUE 

DO  A20  I-l.NOZ 
DO  A20  J«1,N0R 

PM(I,  J)-RINIT*0FLRRFLCATC J-1) 

ZMII,  JI-ZINIT*0RLZ*FLCAT(I-1) 

on  A20  K«1,NBP 

KP.tCCOE(K) 

KSPfE»LCOOFIK)-l 
DO  432  L»1,KSPCE 

ANGLE«ATAN2(  (Z6(K,L41,M)>Z6IK,L,M)), 

•(RB|K,L4l,M)-RB(K,L,M))) 

ZPft«. ( RM|t,J). RB(K,L,M))*SIN(  ANGLE) ♦ 

.(7M(I  , J)-ZeiK,L,M)  )*C0SUNGLE) 

RPP«(PM( I,  J)-PB(K,L,H))*CCSf ANGLE)4 
.(ZM(T, J)-ZE(K,L,M) )*S INI  ANGLE) 

PPR«SGRY(( 2PR*P2)^IPPR**2)) 

IFIZPR.GE.f-VALUE))  GO  TO  422 

NACTVECI,J)»0 

GO  TO  432 

422  IFfZPR.LT.OMEAS)NOOO(l,J)«l 
432  CONTINUE 
420  CONTINUE 
RETURN 
END 
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SUbRQUTlNE  S ET( ANGLE t.NUHBRtNCGDEtLCODE tic  1(1  C2I 
C THIS  SUBROUTINE  SETS  THE  RCH  OR  CCLUHK  NUMBERS 
C NCUDExl,  VERTICAL  INTERSECTICK(NC00E«2(H0RIZ0NTAL 
C INTERSECT  ICR 

PI«3.Ul592€535a98 
GO  TO( 100(2CC)tNC00E 
100  OC  TOmO(13C)(LCCOE 
C LCCDExl, POSITIVE  R INTERSECTION 
C LCUCE«2(NEGATIVE  R INTERSECTION 
110  1F(  (ANGLE.GT.Pn.AN0.(ANGLE.LE.1.2S*Pn  )GU  TO  112 

ICl«NUMOR-l 
1C2  = NUP13R*1 
RETURN 

112  Itl=NUPBR*l 
IC2=NUHBR-l 
RETURN 

C NtGATIVE  K INTERSECTICN 
130  CCNTINUE 

IE(  (ANGLE. GT..75*Pi). AND. (ANGLE. LE.PmGO  TO  132 

ICl*NUMBR-l 

IC2*NUMBR4l 

RETURN 

132  IC1  = NUMBR*1 
lC2xNUM6R-l 
RETURN 

C HCRI2CNTAL  INTERSECTICN 
2C0  GO  TC(210(230) (LCCOE 
C LCCUEsl, POSITIVE  R INTERSECTION 
C LCC0EX2, NEGATIVE  k INTERSECTICN 
ao  IF((ANGLE.CT.l.S*Pn.ANO. (ANGLE. LE.l.T5*PmOC  TO  212 
ICl=NUM8R-l 
IC2XNLMBR+1 
RETURN 

a2  1CI*NURBR  + 1 
IC2=NUMBR-1 
RETURN 

L NEGATIVE  R INTERSECTICN 
230  CCNTINLE 

1F((ANGLE.CT.1.25«PII. AND. (ANGLE. LE.1.5*PinGC  TU  232 

ICl*NLPBR-l 

lC2*NUMRRfl 

RETURN 

232  IC1=NLM8R^1 
IC2»NUMBR-1 
RETURN 
END 
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SURPnUTINF  S0LCTntKtMtJ,IRl,IR2.lPTl«IPT2tKPTl,KPT2« 
.PHI,BFTA,KTYPE,LTYPF» 

COMMON  RM(25t25) «ZM( 29«25|  tPf 25t 29»2I t Af 25t25t2) tPHOf 25«25,2 ) t 
.MR(?5«29f2)  tllZ(25,25t2)tNOR«NOZtRBM(  I0t30*  21 , ZBM(  10,  30,2 ) • 
.RBaO,21,2l,ZB(  lO,21,2),THFTAaO,30,2l*PB(10,30,2t,AB(10,30,2), 

• PHOBf  10,30,2) ,URB(10,30,2),UZBC10,30,2),NACTVF(25,25),N0DD(25,25), 
.NBACT(l0,3O,2),NB0Dna0,30,2),ITYPE(  10,30, 2) , INUHn0,30,2  I , 

.LBPT( 10) ,I AXFSC10,30) 

CnMMON/nOMATN/RPDn5),ZPn(l5),PD(l9)  ,An(l5),RH0Df  15), 

.UPO( l5),UZn(l5),LSUB(l5) 

OATA  PI/3. 1415926/ 

c the  purpose  of  this  routine  is  to  select  the  proper 

C ROW  OR  COLUMN  FOR  THE  CORNER  POINT 
on  TOIIOO, 300) ,KTYPE 
100  fONTINUF 

VERTICAL  INTERSECTION, FIND  POM 
IART*1,R0WS  INCREASE, IART«2, ROWS  DECREASE 
IART-1 

IF(IPHI.GT..75PPI).AND.(PHI.LF.1.25*PI)) IART*2 
DO  110  IL«1,N0Z 
JAP'^«N07-IL+l 
GO  T0(112,II4),IART 

112  IFI7MI IL,IPT1).GT.ZRM(I,J,M))G0  TO  116 
f,n  TO  llO 

114  TFI7M|JAPT,IPT1).LT.ZBM(I,J,M))G0  to  116 
110  continue 

C ERROR  IE  OROP  THROUGH 
WPITEI6, 8000)1, K 
CALL  FXIT 

116  GO  TO(122,124),IAPT 
12?  IR1»IL 
IP2»IL*1 
GO  TO  500 
124  IR1=JART 

IP2*JART-1 
GO  TO  500 
300  CONTINUE 

C horizontal  INTERSECTION, find  COLUMN 
C IART*1, COLUMNS  INCREASE, IART*2, COLUMNS  DECREASE 
IART»1 

IE  ((PHI.GT.1.25PPI  ).AND.(PHI.LE.1.75*PI ) MART*? 

PO  310  IL*1,N0R 

JART«N0R-IL*1 

GO  701312,314) ,IART 

312  IFIRMfIPTl,IL).GT.RRMfI,J,M))GO  TO  316 
GO  TO  310 

314  IF(RM(IPTl,JAPT).LT.RBMn,  J,M))GO  TO  316 
310  CONTINUE 

C FRROR  IE  OROR  THROUGH 

WRITFI6, 8000)1, K 
CALL  EXIT 

316  GO  T0(322,324),1ART 
322  TR1*IL 

TR2»IL^1 
GO  TO  500 
324  IRleJART 

IR2*JART-1 
500  CONTINUE 
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r inCATE  THP  BOUNDARY  POINT 
KSPfE«lBPTlK) 
nn  510  TL«ltKSPCE 
LTYPF«ITVPFCK,ILtM> 

JART-INUMCK, IL*M» 

TPIJART.NF.IRl IGO  TO  510 
ir(KTYPP.NF.LTYPF)Gn  TO  520 
PIO  CONTINUE 

WPITF(6,P010) 

CALL  FXIT 

P20  nFTA«THETA(K,  ILfMI 
r ASSUMF  BOUNDARY  ANGLF  GT  0 AND  LE  PI 
KART-l 

IFdBETA.GE.P  I)  . AND.  ( RFTA.LT.  2.*PI  I)  KART-2 
nn  Tn(522t52^|, lAPT 
57?  rn  T0( 532f 534) ,KART 
53?  KPTl-TL 

KPT?*IL^l 

RFTtlON 

534  KPTl-IL 

KPT7-IL-1 

RETURN 

5?4  no  10(534,5321 fKAPT 

Boon  rOPMATUH  tlSHFRROR  IN  SUB  SOLCT, 

.37HCANN0T  FIND  PROPFR  ROW  DR  COLUMN) 

POlO  FORM  AT (IH  .IBHFRROR  IN  SUR  SOLCT, 

.49HMUST  OEVFlCiP  CAPAPILITY  IN  PROGRAM  FOR  SAME  TYPE  , 
.l2HINTEP5FCTinN) 

END 


SURROUTINF  SORTfXtKK, JKLtLABELtTSTYPE) 

C THIS  routine  sorts  DATA  IN  ASCENDING  ORDER  OR  DESCENDING 
C OROER 

OTMENSION  Xm.JKLIlitlXm  ' 

EOUIVALENCEfZZ,IZZMZ,IZ) 

LOGICAL  ASCENOfFLTSWCHtFIXSWCHtALFSWCH 

DATA  FLTSWCHtFIXSMCHt ASCEND/ .false.,. FALSE., .FALSE./ 

IF(LABEL.EO.O)ASCENO«.TRUE. 

K»l 

N»KK 

00  I 1*1, N 
1 JKLI  n*i 

IFIISTYPE) 110,120,130 
120  STOP 

130  FIXSWCH».TRUF. 

110  FLTSWCHx.NOT.FIXSWCH 
10  CONTINUE 

KLMxIABSlMnnil  IZtlN-K^l)  )4-KI 
Z«XIKLN» 

200  FnPHAT(lHA,A9) 
no  100  I*K,N 

zz  * xin 

IFIFIXSHCHI  GO  TO  60 
IF (A SC END I GO  TO  45 
IFIZZ.LE.ZIGO  TO  100 
GO  TO  20 

45  TFIZZ.GE.ZIGO  TO  100 
GO  TO  20 

60  IFIASCENOI  GO  TO  65 

TFUZZ  .LF.IZl  GO  TO  100 
GO  TO  20 

65  IFdZZ  .GF.IZ)  GO  TO  100 
20  Z«X(II 
KLN*I 

100  CONTINUF 
Y»XIK) 

X(K»*XIKLMI 

XIKLM)«Y 

KMN*JKL(KI 

JKL(K)«JKL(KLM| 

JKLIKLHl-KMN 

K*K+1 

IFIK.LT.NIGO  TO  10 

RETURN 

END 


143 


FUNCTION  SOlINDfRHONEWtFNBWl 
CCMMON/STATF/PINITiBHOINTtAINIT 
SOUNO«PNEh/BHONEW 
SOUKO«SORTfSOUNO» 

RETURN 

FND 


SURRmiTINF  TRNSFRCNCOOE.MfJKI 

rnMMON  RMf25t2SI»ZM(25.25l«P(25t29«2l»A(25,25t2)tRHQf25t25«2l t 
."R(?5f25f?liUZ(25,25t2l,NOR,NOZ»RBM(  10«30»  2)  t ZBNfl0t30t2 1 1 
.Pn(l0t21f2)>?B(10,21f2)f  THFTA(10«30t2}tPB(10»30t2ltAfmo.30«2)t 
.RHnBflOt3O,2l«URB(10t3O«2»,UZBf  10«30,2ltNACTVEI29t25ltN0DDf25*25), 

• NRACTf  10»30f2)tNB0D0n0,30t2lf  ITYPEt  I0t30«  21 1 INUMf  I0t30t2 1 1 
.t BPT(10l,tAXESI10«30) 

CnMHON/nnMATN/RPOtl5)«ZPDfl5t»PO(l5ltAOf 15 1 « RHODf 15) t 

• URD(15)  »UZnn5),LSUB(15t 
CnMMON/EXCHNG/IO,IE,IF,  IC1« TC2tNUHBR 
r.n  TOC  100,200) ,NConE 

C SFT  IJP  ROUNPARV  DOMAIN  — VERTICAL  INTERSECTION 

100  PROIIO)«RM(  JK,IC1) 

ZPO(  IO)«ZH(JK,  ir.l ) 

PD(TD)*P( JK,ICl,M) 

PHnniin)*RHn(jK, iri.M) 

IJPni  IO)»UP  ( JK,  ICl,M) 

U7.D(  in)*U7(JK,  ir  l,M) 

An(ID)*AMK,  If  l,M) 

RPni IF)«RM( JK,NUMRR) 

ZPO(  IF  )*ZM(  JK.NIIMBR) 

POnF)»P(  JK,NUMBR,M) 

RHnn(IF)*RMOIJK,NUMBR,M) 

URn(IE)»UR ( JK,NU«BR,M) 

UZO(  IF)«UZ(JK,NIIMBR,M) 

An(m«A(  JK,NUMBR,H) 

RPD( IF )«RH(JK, IC2) 

ZPOI  IF)«ZM(JK,  IC2) 

PD(TF)«P(JK,TC2,M) 

RHOOnF)-RHO(  JR,  IC2,M) 

UR0(ir)«UR(JK,IC2,M) 

UZ0(TF)*UZ(JK,IC2,M) 

An(IF)*A(JK,IC2,M) 

PFTUPN 

C SFT  UP  BOUNDARY  DOMAIN  — HORIZONTAL  INTERSECTION 
200  ROD( ID)=RM(ICI»JK) 

ZPni  IO)«ZMI  in  ,JK) 
pnno)*pf  ici,jK,M) 

PHOO(in)*RHO( IC1,JK,M) 

UPD(I0)«UR(IC1,JK,M) 
uzni  IO)*UZ( IC1,JK,M) 

AD(I0)*A(IC1,JK,M) 

RPD( IF)«RMINUM6R, JK) 

ZPO(IE)*ZM(NUMBR,JK) 

Pn(IE)«P(NUMPP,JK,M) 

RHOni IF)«RH0(NUMBR, JK,M) 

URDIIEI-UPINUMBR, JK,M) 

UZOnE)«UZCNUMBR,JK,M) 

AO(IE)«A(NUMBR,JK,M) 

RPnnF)«RM(IC2,JK) 

ZP0(IF)«ZM(IC2,JK) 

PD(IF)«P(IC2,JK,M) 

RHOD(IF)*RHQI IC2,JK,M) 

URD(IF)«URnC2,JK,M) 

UZOC IF)«U7(IC2,JK,M) 

AD(TF)«Af IC2,JK,M) 

return 

END 
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SliBROlITTNF  TPSCNP(M,KTYPFI 

r THIS  ROUTTNF  SETS  UP  DOMAIN  POINTS  POP  COPNEP  POINT 

COMMON  PMI25t25),2M(25»25}tPI25t29«2l«A(25,25«2l,PHOf25f25f2), 
.UP(25,29t2),tlZf  25,29«2)tNOPfNO2tR8H(10f3Ot2l  t2nM(10«30t2It 
.PM  10t2U?)tZP(  10t21«2)*THETA(10,30«2l«PB(  10*30« 2)  fABi  10,30*21 1 
. RHOB ( 1 0,30, ?),UPB( 10, 30, 2 ItUZM 10,30*21  fNACTVEI 25,291, NOODI 25,25), 
. MB &CTI  10,30,2) ,NBnnO( 10, 30,21,  ITYPFC 10, 30,21, INUMf 10,30,2), 
.I.RPT(10),IAXFS(10,30) 

COMMON /DOMAIN/ PPnil5) , ZPD( 15 ) ,P0( 15) , AD(  15 ) , RHOOf 1 5 1 , 

.UROI 15),M/n(l5),LSUBIl5) 

COMMON /YCHNr,/KO,KP,  IP  , IC  1 , IC2 , ID,  IE,  IF 
no  Tnn00,300)  ,KTYPF 
100  RPOl ID)*RM(TP, TCI) 

7PDI IO)*ZM(TP, iri) 

PDno)=pnp,  ici,M) 

PHOD( in)*RHO( IP, ICl,M) 
uRonn)=)jp  ( IP , TCi,M) 

U70(  ID)*UZ(TR,  ICl,M) 

Aonn)=«Anp,iri,M) 

PPO( TE)*PM(IP, IC2) 

7P0(  IE)*ZMf  TP,  IC2) 
pn(iE)*pnR,ic2,M) 

RHOniin^RHOC  IR,IC2,M) 

UPD(TEI*UR(IR, IC2,M) 
l)ZOMF)»UZ(  in,  IC2,M) 

AO(»E)*A(  IP,  IC2,M) 

PPD( IF)*PPM(KP,KP,M) 

ZPO( IF )»7BM(KR,KP,M) 

POnF)«PB(KP,KP,M) 

PHOD( IF)=RHOP(KP,KP,M) 

MPO( IF)»URB(KP,KP,M) 

UZniIF)=UZB(KB,KP,M) 

A0( IF)x4P( KP,KP,M) 

PFTIIRN 

300  PPni ID)=RM(IC1,IR) 

7POnn)*7M(ICl,IR) 
po(in)=Pi ici,  IP,M) 

PHnnno)sRHoc  ici,  ip,m) 

UR0(  I0)=unnri,  TR,M) 

UZD( ID)*U7IIC1,TR,M1 
A0( in)*AlICl,  IP,M) 

PPOnF)»RM(  IC2,  IR) 

ZPOI  lF)»ZMnC2,IR) 

POIIF)*P( IC2,  IR,M) 

RHOnnF)*PHOI  IC2,IR,M) 

URn(IF)*UP(If2,IR,M) 

U7n(IF)*U7( IC2,  IR,M) 

AnUE)*A|  IC2,  IR,M) 

PPPI IF )*RBMIKB,KP,M1 
ZPD(  IF)«ZBM(KB,KP,M1 
POnF)*PB(KR,KP,M) 

RHOD(IF)*PHOBCKB,KP,M) 

URD(  IF  )*URB(KP,KP,M1 
UZD( IF)«UZB(KB,KP,M1 
AOMF)*AB(KB,KP,M) 

RETURN 

FNO 
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Appendix  F.  Interpolation  Schemef; 

For  data  points  not  falling  on  the  grid  points,  a two- 
dimensional  interpolation  must  be  used  to  obtain  the  values  of 
the  variables . A review  of  current  literature  shows  that  there 
are  several  Interpolation  schemes  available.  Including  the  least- 
squares  method,  the  double-parabolic  method,  linear  Interpolation 
and  spline  Interpolation.  After  trying  the  first  two,  we  have 
adopted  the  double-parabolic  interpolation  method,  for  both  In- 
terior and  boundary  points. 

In  this  Appendix,  a brief  review  of  these  schemes  will 
be  given.  A numerical  comparison  of  the  accuracy  of  the  least- 
squares  and  double-parabolic  methods  will  also  be  shown. 

1.  Least-Squares  Method  - This  method  was  used  by 
Cline  and  Hoffman  [FI]*,  Ransom,  Hoffman  and  Thompson  [F2],  and 
Richardson  [F3],  all  In  connection  with  the  numerical  method  of 
characteristics.  Referring  to  Fig.  FI,  properties  at  P(r,z) 
which  Is  not  a regular  grid-point,  are  desired.  In  this  method, 
a bivariate  interpolating  polynomial 

2 2 

f(r,z)  - r ♦ 32  r ♦ aj  z ♦ a^  z + a^  rz  (Fl) 

Is  written.  The  coefficients  a^  to  a^  are  determined  by  a least- 

squares  fit  to  the  nine  nearest  grid-points  where  the  values  of 
the  function  are  known.  Then,  values  of  the  function  and  Its 
derivatives  at  P can  all  be  obtained  from  (Fl) , 

The  advantage  of  this  method  Is  its  ease  of  application; 
once  the  polynomial  (Fl)  Is  known,  the  derivatives  can  be  ob- 
tained directly.  Any  number  of  neighboring  grid-points  can  be 
used  for  least-squares  fitting,  making  It  easy  to  apply  to  curved 
boundaries.  The  disadvantage  Is  that  the  degree  of  accuracy  Is 
not  clearly  known.  The  least-squares  technique  Is  most  suitable 
for  a set  of  data  points  which  have  random  error  with  respect  to 
the  true  function;  the  method  minimizes  the  overall  error.  For 
our  present  purpose,  the  values  of  the  function  at  the  grid- 
points  are  to  be  used  for  subsequent  calculations.  The  least- 
squares  fitted  curve  usually  does  not  pass  through  these  original 
values  at  grid-points.  For  a point  vury  close  to  a grid-point, 
a discontinuity  may  be  created. 


* The  bracketed  numbers  designate  the  references  of  this 
appendix  shown  on  page  150. 


147 


2.  Straleht-llne  Interpolation  - Sauerweln  [F4]  used  a 
linear  Interpolation  method.  Due  to  the  geometry  of  his  grid 
system,  which  involves  three  base-points  for  each  characteristic 
cone,  a one-step,  two-point  interpolation  is  sufficient;  inter- 
polation along  two  coordinates  Is  not  needed.  The  method  is, 

of  course,  only  of  first  order  accuracy. 

3.  Double-Parabolic  Interpolation  - This  is  the  method 
used  in  the  present  program.  (For  the  blast-wave  computer  code, 
the  one-dimensional  parabolic  Interpolation  was  used).  A second 
-order  polynomial  (parabolic)  is  written  with  r as  the  variable 
and  the  three  coefficients  are  determined  by  matching  the  three 
grid-points  on  one  horizontal  line,  such  as  points  1,  4,  and  7 
in  Fig.  FI.  Once  the  values  at  points  A,  B,  and  C are  known,  a 
second-order  polynomial  is  written  in  terms  of  z and  used  to 
interpolate  for  values  at  point  P. 

In  order  to  demonstrate  the  error  involved  in  using 
a quadratic  approximation  to  the  function  f(x)  between  the  points 
0,  1 and  2,  let  us  first  define  the  second-degree, 

Newton  divided-difference  formula  [F5];  namely, 
f(x)  « f(x^)  ♦ (X  - Xq)  f[x^.Xjl  ♦ (X  - Xq)(x  - Xj)  f[x^,Xj,X2l 


where 


and  the  notation  f[  ] is  defined  by 


£(aj)  - f(a.) 

- a^  ■ aj 

f[a.,a.]  - f[a.,aJ 
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and 


f[ai,aj,aj^,a^]  - Ca^  - a^j 


Let  y(x)  represent  the  quadratic  polynomial 


y(x)  - b,  ♦ bj  X + b. 


(F3) 


then  equation  (F2)  can  be  written  as 

3 

£(x)  - y(x)  + (X  - x^)(x  - x^)(x  - xp 

The  error  E(x) , In  the  quadratic  approximation  to  f(x)  Is  then 
given  by 

EW  - (X  - x„)  (X  - X.)  (X  - X,)  ^il£2l 

“ '■  ^ dx3 


(F4) 


(F5) 


From  Eq.  (F5)  we  can  then  see  that 


E(x)  ■ O(Ax^) 


or  a quadratic  approximation  EqtF2,  to  f(x)  Is  second-order 
accurate. 


4.  Spline  Interpolation  - The  spline  Interpolation  method 
Is  more  sophisticated,  more  accurate,  and  has  many  different 
versions.  A typical  one  Is  given  by  Fowler  and  Wilson  [F6].  The 
basic  concept  of  spline  Interpolation  may  be  explained  by  a simple 
example.  Let  the  value  of  y be  known  at  x . , x_,  and  x_,  as  shown 
In  Elg.  F2.  ABC 

A polynomial  Is  written  for  the  curve  between  A and  B, 

and  another  for  that  between  B and  C.  The  six  unknown  coefficients 

are  then  determined  by  the  four  known  positions,  y,  (x.),  y,  (x  ) , 

1 A X B 

y2(^g)*  and  matching  condition,  y{(Xg)  “ yp’^g^  ’ 

and  one  curvature  matching  condition,  y','(Xo)  “ y'oCXo)* 

X B 2 B 
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Although  a higher  degree  of  accuracy  can  be  achieved  by 
this  Interpolation  method,  It  Is  not  suitable  for  our  present  pur- 
pose because  of  Its  complexity,  and  also  because  our  finite- 
difference  scheme  Is  only  of  second-order  accuracy;  any  higher 
order  of  accuracy  In  Interpolation  Is  not  required. 

5.  Numerical  Comparison  of  Two  Interpolation  Schemes  - 

To  compare  the  numerical  accuracy  of  the  least-squares 
method  and  the  double-parabolic  method,  we  have  used  as  a standard 
the  exact  solution  of  Sedov's  cyllndrlcal-blast-wave  problem,  see 

-4 

Ref.  F7.  An  Initial  time-plane  Is  chosen  at  a time  of  1.591  x 10 

second,  when  the  shock  front  is  two  feet  (0.6096  m)  from  the  origin. 

The  blast  has  an  Initial  energy  of  1.5482649  x 10^^  ft-lb/ft  (6.8870252 

X 10^^  joule/m);  this  gas  has  a specific  heat  ratio  of  1.4.  A typical 

point  near  the  origin  (3.75,  6)  was  chose.  Fig.  F3.  The  error  in 
density  as  calculated  by  the  least-squares  method  Is  0.8%,  and  by  the 
double-parabolic  method  0.0033%.  In  this  region  of  the  blast  wave, 
the  density  gradient  is  very  steep,  and  the  accuracy  test  is  a quite 
severe  one. 


As  shown  by  this  numerical  comparison,  the  double- 

parabolic  method  is  much  superior,  and  will  be  adopted  for  all 

our  calculations. 
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Figure  F3.  Sketch  of  Blast  Wave  Shock  Front  at  159.1 
ysec. 


153 


DISTRIBUTION  LIST 


V# 


No.  of  No.  of 

Copies  Organization  Copies  Organization 


1 2 Commander 

Defense  Documentation  Center 
ATTN:  DDC-TCA 

Cameron  Station 
Alexandria,  VA  22314 

2 Commander 

US  Army  Materiel  Command 
ATTN:  AMCDMA 

Mr.  N.  Klein 
Mr.  J.  Bender 
5001  Eisenhower  Avenue 
Alexandria,  VA  22333 

1 Commander 

US  Army  Materiel  Command 
ATTN:  AMCRD,  BG  H.  A.  Griffith  2 

5001  Eisenhower  Avenue 
Alexandria,  VA  22333 

1 Commander 

US  Army  Materiel  Command 
ATTN:  AMCRD-T 

5001  Eisenhower  Avenue 
Alexandria,  VA  22333 

1 Commander 

US  Army  Materiel  Command 
ATTN:  AMCRD-R 

5001  Eisenhower  Avenue 
Alexandria,  VA  22333 

1 Commander 

US  Army  Aviation  Systems 
Command 
ATTN:  AMSAV-E 

12th  and  Spruce  Streets 
St.  Louis,  MO  63166 

1 Director 

US  Army  Air  Mobility  Research 
and  Development  Laboratory 
Ames  Research  Center 
Moffett  Field,  CA  94035 


1 Commander 

US  Army  Electronics  Command 

ATTN:  AMSEL-RD 

Fort  Monmouth,  NJ  07703 

1 Commander 

US  Army  Missile  Command 

ATTN:  AMSMI-R 

Redstone  Arsenal,  AL  35809 

1 Commander 

US  Army  Tank  Automotive 
Command 

ATTN:  AMSTA-RHFL 

Warren,  MI  48090 

Commander 

US  Army  Mobility  Equipment 
Research  8 Development  Center 
ATTN:  Tech  Docu  Cen,  Bldg.  315 

AMSME-RZT 

Fort  Belvoir,  VA  22060 
1 Comruander 

US  Army  Armament  Command 
Rock  Island,  IL  61202 

1 Commander 

US  Army  Harry  Diamond 
Laboratories 
ATTN:  AMXDO-TI 

2800  Powder  Mill  Road 
Adelphi,  MD  20783 

3 Drexel  University 

Mechanical  Engineering 
8 Mechanics  Department 
ATTN:  Dr.  Pei  Chi  Chou 

32nd  8 Chestnuts  Streets 
Philadelphia,  PA  19104 


Aberdeen  Proving  Ground 


155 


Marine  Corps  Ln  Ofc 
Director,  USAMSAA 


